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„TRIAD" 

In einem Raumschiff der Forschungs- 
gruppe Erde sind Sie in ein feindliches 
Gebiet des Planeten TRIAD gekom- 
men. Sofort werden Sie von den Triads 
und ihren Energiestrahlen angegriffen. 
Kämpfen Sie sich Ihren Weg durch die 
Gefahrenzone. 



nterview «* Jay Tuck 



Autor von „Die Computerspione - Der heimliche Handel mit 
NATO-Technologie", Heyne Verlag, München 



Frage: In Ihrem Buch schildern Sie 
mysteriöse Mitternachtstreffs auf dem 
Wiener Flughafen, die Entdeckung ei- 
ner vereisten Leiche in den französi- 
chen Alpen und die ransante Fahrt 
von US-Fahndern durch den Hambur- 
ger Hafen. Auf weiten Strecken liest 
sich das wie ein Polit-Thriller. Warum 
der ungewöhnliche Stil? 
Tuck: Die Geschichte der sowjeti- 
schen Computerspionage ist in der Tat 
ein Ost- West-Thriller. Er spielt sich in 
unserer Mitte ab und geht uns alle 
etwas an. Im Gegensatz zu einem Ro- 
man handelt es sich hier jedoch um die 
authentische Darstellung von Ereig- 
nissen im Leben wirklicher Menschen. 
Ich habe die Organisation von acht 
Schieberringen im Detail studiert und 
mir große Mühe gemacht, möglichst 
viel von der Dramaturgie und Farbe 
des Geschehens einzufangen - von 
den beteiligten Persönlichkeiten, über 
deren Ostkontakte, Schmuggelrouten 
und Schiebertricks, bis hin zu den Ge- 
gentricks der Ermittlungsbehörden. 
Der illegale Handel mit strategischer 
Elektronik wird von westlichen Ab- 
wehrbehörden inzwischen als „Spio- 
nage-Thema des Jahrzehnts" einge- 
stuft. 



Frage: Wer sind diese „Computerspio- 
ne"? 

Tuck: In einem Fall handelt es sich um 
einen chinesischen Bankier, der von 
Hongkong in die US-Elektronikhoch- 
burg Silicon Valley reiste, um kalifor- 
nische Banken im Auftrag des Ge- 
heimdienstes KGB einzukaufen. In ei- 
nem anderen Fall investierte ein deut- 



scher Mehrfachmillionär in das Heim- 
orgelgeschäft. Er suchte aber nur ein 
Tarnunternehmen für seine dubiosen 
Computergeschäfte und wurde am 
Ende von Agenten des Bundesnach- 
richtendienstes, des britischen MI-6 
und der amerikanischen CIA rund um 
den Globus gejagt. Teilweise verfügen 
die westlichen Geschäftsmänner, die 
mit Embargoware handeln, über ge- 
heimdienstliche Kontakte. Häufig 
wurden sie unwissentlich in die Be- 
schaffungspläne von Sowjetspionen 
eingespannt. 

weiter Seite 32 



Nullmodem zum Aufstecken 



Unter der Bezeichnung PERDREH-0 
bietet das Zevener Unternehmen 
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BAUZ GmbH ein Nullmodem in der 
Form eines Adapters an. Dieser Adap- 
ter kann einfach auf einen Kabel- oder 
Geräteanschluß aufgesteckt werden. 
Das Nullmodem dient dazu, gleicharti- 
ge Geräte miteinander zu verbinden, 
ohne ein Spezialkabel herstellen zu 
müssen. Haupteinsatzgebiet für ein 
Nullmodem ist die Verbindung von 
Computern miteinander über eine 
V24/RS 232-Schnittstelle und einem 
normalen Druckerkabel. 

Informationen: 

BAUZ GmbH, Postfach 13 29, 

2730 Zeven. 
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Der Ritter Bongo hat im Wald ein ge- 
heimnisvolles Schloß entdeckt. In je- 
dem Stockwerk dieses Schlosses sind 
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9 Räume, in jedem Raum ein Schatz 
versteckt. Um diesen Schatz zu besit- 
zen, braucht er einen Schlüssel, der 
jedoch meistens in einem anderen 
Raum liegt. 

Die Schätze werden von todbringen- 
den Tieren bewacht, die es auf unsere 
Ritter abgesehen haben. Nur wenn er 
das Schwert erreicht, kann er sich ih- 
rer erwehren. 
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The Factory 



ein interessantes Spiel 
von Hes-Ware 



Kannst Du eine Fabrik alleine führen? 
Die Maschinen sind fertig und warten 
auf Dich! 

So heißt es auf der Diskettenhülle des 
Programmes „THE FACTORY". In der 
Tat, es geht darum, wie in einer richti- 
gen Fabrik Produkte herzustellen. 
Dazu dienen drei zur Verfügung ste- 
hende Maschinen, und zwar: 
PUNCH = Locher (stanzt aus einem 
Werkstück 1-3 quadrati- 
sche oder runde Löcher aus) 
STRIPE = Streifen (schleift dünne, 
mittlere oder dicke Streifen 
auf das Werkstück) 
und 

ROT ATE = Rotieren (dreht ein Werk- 
stück um 45, 90, 135 oder 
180 Grad) 
Nach dem Start des Programmes (und 
einem eventuellen Einstellen der Bild- 
schirmfarben) hat man im wesentli- 
chen drei Wahlmöglichkeiten: 

(1) Test a Machine 

Hierbei kann man sich jeweils eine der 
drei Maschinen aussuchen und in ih- 
rer Wirkung vorführen lassen. 

(2) Build a Foctory 

Wählt man diesen Programmpunkt, so 
kann man bis zu acht Maschinen zu 
einer Fließbandstraße zusammenset- 
zen. Ist man damit fertig, so durchläuft 
ein Werkstück dieses „Fließband" und 
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wird entsprechend bearbeitet. An- 
schließend' ist es möglich, daß ein 
Freund die Aufgabe bekommt, dieses 
Werkstück nachzumachen, d. h., er 
muß durch Kombinieren die richtigen 
Maschinen in der richtigen Reihenfol- 
ge zusammensetzen. 
(3) Make a Produkt 
Hat man keinen Freund zur Verfü- 
gung, kann man sich durch Anwählen 
dieses Programmpunktes auch vom 
Computer ein Werkstück vorgeben 
lassen, welches es dann nachzuma- 
chen gilt. Dabei kann man unter drei 
verschiedenen Schwierigkeitsgraden 
wählen. 

Nach Angaben auf der Verpackung ist 
dieses Lernspiel für Kinder ab 7 Jah- 
ren geeignet. Und Kindern macht diese 
Art des Umganges mit dem Computer 
Spaß, wie ich bei meinen Nichten fest- 
stellen konnte. Zwar sehen die Ma- 
schinen etwas abenteuerlich aus, aber 
wenn sich dann ein Werkstück auf 
dem selbstentwqrfenen Fließband be- 
wegt, dann kommt sogar Spannung 
auf. Ist das Teil richtig oder falsch ge- 
worden?! 

Zur Bedienung des Programmes kann 
man nur sagen, daß sie dem Adres- 
satenkreis (Kinder) angemessen ist. 
Das Programm ist menueorientiert und 
läßt sich mit drei Tasten (<, > und 



RETURN) bediene» Mit < und > 
steuert man ein Rechteck auf den Me- 
nuepunkt seiner Wahl und drückt die 
RETURN-Taste. Das ist alles. 
Zusammenfassend möchte ich sagen, 
daß „THE FACTORY" eines der 
schönsten und interessantesten Lern- 
spiele für Kinder ist, welches ich für 
den VC-64 kenne. Gewünscht hätte 
ich mir nur, daß die Anweisungen des 
Programmes in Deutsch zu lesen ge- 
wesen wären, denn mir lag nur eine 
englische Version vor. Trotzdem hat 
das Programm allen meinen „Testper- 
sonen" gefallen, denn dieses Pro- 
gramm ist keineswegs nur als reines 
Kinderspiel zu betrachten. Auch für 
Erwachsene hat das Programm seinen 
Reiz. Probieren Sie es aus! 
Programm: The Factory. Von: Hes- 
Ware. Datenträger: Diskette; Preis: 
109,- DM. 
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Der Heim- oder Hobby-Computer ist 
besonders vielseitig. Man kann damit 
nicht nur spielen, sondern auch lernen 
oder nützliche kleine Anwendungen 
im häuslichen Bereich realisieren. In 
spielerischer Weise eignet man sich 
gleichsam nebenbei ein Wissen über 
Elektronik und Logik an, das in Zu- 
kunft im Berufsleben immer wichtiger 
werden wird. Der Laie, der sich einen 
Freizeit-Computer kaufen möchte, 
sieht sich allerdings vielen Fragen ge- 
genüber, denn das Angebot ist riesen- 
groß. 

Gilbert Obermaier hat mit seinem 
HEIMCOMPUTER REPORT '85 eine 
umfassende Marktübersicht geschaf- 
fen: Hardware, Software, genaue Be- 
schreibungen, Preisangaben und ex- 
akte technische Daten, ein Heimcom- 
puter- ABC, das alle Fachausdrücke 
erklärt, Anschriften von Vertriebsfir- 
men, Fachzeitschriften und Clubs. 
Heyne-Buch Nr. 08/4981, DM 6,80, 
Originalausgabe 

******************* 

Ist ein Heimcomputer im Haus, gibt es 
zwei Möglichkeiten. Entweder Vater 
und Sohn sehen sich nur noch zu den 
Mahlzeiten - weil der Sohn auf die 
neue Technik total abfährt und weil 
der Vater auf die neue Technik pfeift. 
Oder Vater und Sohn machen gemein- 
same Sache. 

Aber: der Sohn will spielen, program- 
mieren, hackern. 

Der Vater will den Computer sinnvoll 
anwenden, die neue Technik auspro- 
bieren und einüben. 
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Wie der Heimcomputer für Vater und 
Sohn gemeinsam Spaß und Nutzen, 
Abenteuer und Herausforderung be- 
deuten kann, zeigt dieses Buch von 
Tom (45) und Fabian (13) Werneck. 
Heyne-Buch Nr. 15/7, DM 9,80, Origi- 
nalausgabe 



„Der mächtige Draht", heraus- 
gegeben von Key B. Hacker, ist 
ein Buch über die verschiede- 
nen Aspekte moderner Kom- 
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munikationstechniken. Es ist das erste 
Buch, das einerseits die Möglichkeiten 
von Mailbox-Systemen beschreibt 
und sich andererseits kritisch mit der 
Datenfernübertragung allgemein aus- 
einandersetzt. Die Mailbox selbst ist 
hierbei als Vehikel benutzt worden, 
das Buch zu konzipieren, zu erarbei- 
ten und zu erstellen, denn die einzel- 
nen Kapitel von sehr unterschiedli- 
cher Länge und Thematik sind an das 
elektronische Postfach des Herausge- 
bers adressiert und über Datex-p dem 
Fach entnommen worden. Sie wurden 
anschließend elektronisch gespeichert 
und mit einem Computer bis zur ferti- 
gen Druckvorlage weiterverarbeitet. 
Der Herausgeber hat sich jedoch nur 
auf das Sammeln und Zusammenstel- 
len der in seiner Mailbox eingehenden 
Artikel beschränkt. Vielmehr kom- 
mentiert und beschreibt er das rege 
Treiben in seinem elektronischen 
Postfach, das im Verlauf der Bucher- 
stellung vorzufinden war. Dadurch 
werden Lebendigkeit und Zweck eines 
solchen „Computer based message Sy- 
stems" besonders transparent. Alle 
Beiträge stammen von einer „closed 
user group", zu der auch Computerbe- 
nutzer gehören, die die Aufgabe hat- 
ten, das Mailbox-System auf Standfe- 
stigkeit mit allen Tricks und Mitteln 
aus*:utesten. 

Von erheblicher Bedeutung werden 
Mailbox-Systeme für ausreichend 
große Organisationen sein, die einen 
hohen Bedarf an Informationsaus- 
tausch haben. Dazu gehören z. B. auch 
Vereine. So ist die A.U.G.E. (Apple 
User Group Europe) bereits Nutzer ei- 
ner Mailbox. Diese wie auch verschie- 
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dene Firmen, nutzen jetzt schon Syste- 
me, die auf dem deutschen Markt ver- 
treten werden. Die Bundespost wird 
1985 ihr Telebox-System anbieten. 
Key B. Hackers Buch ist deshalb so 



wichtig, weil es dem Leser ein Gefühl 
vermittelt, was die Nutzung von Mail- 
box-Systemen, Datenbanken und Te- 
lekommunikationsdiensten für weite 
Kreise bedeuten wird und weil es ent- 



sprechende Entscheidungen wesent- 
lich erleichtern oder erst ermöglichen 
wird. Key B. Hacker (Hrsg.) 

Braunschweig: Vieweg 1984. Ca. 230 
S. Gbd. ca. DM 45 - 



Macintosh 

Ein Computer und seine Mitwelt 



Der Macintosh, der neue PC von App- 
le, wird als faszinierendes Computer- 
Phänomen der Zukunft gesehen. Je- 
doch befaßt sich der Autor nicht nur 
mit einem hochaktuellem Produkt der 
„32-bit-Welt", sondern sieht sich 
gleichzeitig in der Welt der Computer 
um, damit auch der Leser seinen Blick 
schärfen kann. 



Das Buch ist in einem für herkömmli- 
che Computer-Bücher ungewöhnli- 
chen Stil verfaßt und setzt sich kri- 
tisch mit Produkt und Hersteller in der 
neuen Welt der Computer auseinan- 
der. 

Der Macintosh, Lisas Sohn und Maus- 
Besitzer, ist der erste Schritt zur Buch- 



herstellung im Wohnzimmer; die Pro- 
gramme MacWrite und MacPaint er- 
möglichen dies. 

So wurde dieses Buch vom Autor bis 
auf wenige verlagsbedingte Kleinig- 
keiten auf dem Macintosh hergestellt, 
einschließlich der in dem Buch enthal- 
tenen Illustrationen und Bilder. Über 
dem Macintosh sagt das Buch nicht 
nur viel, sondern alles. Key B. Hacker 
Braunschweig: Vieweg 1984. 197 S., 
DIN C 5. Br. DM 48,- 
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Buchbesprechung: 

6502-Assemblerkurs für Beginner 



Der ,.6502-Assemblerkurs für Begin- 
ner » von Andreas Dnpke 

ter - von ^l^sL^ersvr^e 
Einführung in die ~ b dar , wie er 

sich z. B. im Apple ^1^ be _ 

Atari-Computern und im VC 

ündet. Auch Besrtz^m^ VC ^ 
welchem ^ Perso^^e 
mit dem Buch angesprochen 
S 65lO-Mikropro Z essor ist 

kompatibel zum ™> 1 ' ichi das 

Voller Erwartungen begann 
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Aber schon das Äußere^ ^ ^ 
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PRINTER VORPROGRAMM 
****************************im* 

P R I N T E R (VORPROGRAMM) ,,. 



VON 

THOMRS 



GÜESMRNN 



REM 
REM 
REM 
REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM ******************************** 

P0KE19Ö, 3 s PÜKE£3i , ?£ ! PÜKE632, 111 : P0KE633, 

P0KE43 , 1 : PQKE44 , 34 ■ P0KE34*256 > B ■ NEW : REM 

START RUF 8704 



5??8 MESCHEDE 



* 
* 
* 



Painter ist in Maschinen- 
sprache geschrieben und hat 
dadurch einen sehr schnel- 
len Bewegungsablauf. 

Eine Hauswand soll neu angestrichen werden. Für 
Farbe und Pinsel ist gesorgt. Versuchen Sie nun, 
die Hausfassade vollständig mit neuer Farbe zu 
bestreichen. Sie können Ihre Spielfigur nach 
rechts, links oben und unten steuern. Pro Spiel 
stehen Ihnen drei Spielfiguren zur Verfügung. Um 
das Spiel erfolgreich ausführen zu können, weichen 
Sie den etwas seltsam aussehenden Bewohnern des 
Hauses aus. Diese werden auf jeden Fall versuchen, 
die Anstreicherei vorzeitig zu beenden. Also - auf- 
gepaßt und rechtzeitig aufhören zu arbeiten, sonst 
haben Sie das Spiel verloren. 

Ein Tip: versuchen Sie nicht nur gegen die seltsa- 
men Hausbewohner, sondern zusätzlich gegen die 
Uhr anzutreten. Wenn Sie es geschafft haben, die 
Fassade vollständig in eine neue Farbe zu kleiden, 
kommen Sie ins nächste Bild. 

Das Anstreichen erfolgt über-Steue- 
13 rung des Joysticks Port II oder über 

BASIC die Tastatur >W<, >A< ( >S< und 

>Z<. 



10 REM ***************************:***** 

11 REM * * 

12 REM * P R I N T E R (HRUPTPRÜÜR. ) * 

13 REM * * 

14 REM * VOM * 

15 REM * THOMAS GÜESMRNN CO ''1984 * 

16 REM .* * 

17 REM 



******************************** 



Hier einige Tips zum Laden und 
Abspeichern: Tippen Sie das Vorpro- 
gramm von Painter (Painter 1) ab! Sa- 
ven Sie es anschließend und starten 
Sie es. Nun tippen Sie das Hauptpro- 
gramm (Painter 2) ab und speichern es 
direkt hinter Painter 1 auf Kassette. 
Zum späteren Laden brauchen Sie nur 
SHIFT + RUN zu drücken! 
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18 REH 

30 PKINTI'M" : V«S324a:Sr«S42?2?CS«SS732JRU*i :LE*3:8C«0:PÜKEV+21,8 

35 B1MP£ 13,2): BIMPFK94> : B1MP0< 16) 

40 FOBfl-2040TO2046 = REflDB : POKER, E ? HEXT : F0RH-V+32T0V+45 = REABB : POKER, E : NEXT 

45 FORfi*0TO16 ; RERBB ; PO<fl)*B • POKEA+V, B = HEXT 

58 EOftß«0TÜiS-FOßB-0TO2:REflBfli -PCfl.E>-»fll JNEXTiNEXT 

55 FÜRfl*0TO94 ; REßDB : Pfl C fl> -B : HEXT 

68 PQKE8I + 1 , 1 00 1 POKES 1+5,0: POKES I tß , 248 : POKES 1+24,15 = POKES 1+12,0: ppKES I + 1 3 , 240 

65 P0KE8181 » 3 : PÜKES182, : P0KE8184, 1 ■ POKES 183« : P0KE8185/ = PQKE8187, : F0KE818S, 

70 POKE V+22 j PEEK £ V+22 > ÜR 1 6 *• PDKE V+27 , 1 1 2 

85 FÜRfli*0TOfi4*6-l :RERDB1 : POKER 1+8 192, Bl : HEXT 

88 REM 

90 REH ZEICHEN DEFINIEREN 

100 IFFEEKC2S-255THENPQKEV+24, 19=0010200 

102 Pft INT\T : PQKE214, 9 :SYSCS SPRINT "BITTE WARTEN SIE CIRCR 40 SEKUNDEN" 

105 PÜKE56334, 127 ; P0KE1 , 51 = FORA=8TÜ2047 

1 i POKER+2848 , PEEK < S3248+R > : NEXT = POKE 1 , 55 : P0KE56334 ,129: P0KEV+24 ,19: P0KE2 , 255 

120 FORR*409(STG4977 : RERBB = POKER, B = HEXT 

130 RERDB1 : flDR»B 1*8+2048 = FORfl*0TQ? : RERBB2 : PÖKER+RBR, B2 : NEXT 

140 PRINT ,, 3 ,, rPOKE211*0:POKE214*9!SVSC8:PRlNT ,, ftJ»VSTICK <PORT 11) OBER tfTIRSTATU 

R" 

145 POKEi9S,0:WRlT19S, 1 =OETfl*: IFR$="J n THEN170 

150 IFfl*0"T"THEN14S 

160 F0RR*489S TO4130: RERBB: POKER, B= HEXT 

1?0 ÖOSUB 10000 

185 REM 

190 REM SPIELFELD ZEICHNEN 

195 REH 

200 P R t NT " I'Ä RUNDE " RU .' ' PUNKTE " SC : PR I NT " H" TAB < 23 > M LEBEN " LE ? POKES 1 86 , : POKES 1 76 , 

202 PR1NT";W« , N 

205 0OSUB250 = GGSUB258 : F0Rfll»ÖT02 : GÜSUB2S8 = OOSUB270 : GOSUB250 : 0O8UB25O : NEXT 

210 FORRl*0TO4:PRINT"liMiKa ":NEXT 

220 X*19 : V»l 1 = GOSUB280 '• Y-17 : OOSUB280 : Y*23 : 8O8UB280 : V*29 : 00SUB280 

225 P0KE2il,7:P0KE214,i9:SVSCS:PRINT"naill »111 ™* a '" 

226 POKE b3280,2 
230 GÜTO300 

266 pr i nt ' ' iii»**r"^n**r M ~n**r~n**r — &*! — i*** " 

270 PRINT n »i»l***l **l **l fr*! ft*l.— «■»*" 

280 P0KE2 i 4 , X : P0KE2 1 1 , V • SVSCS = PR I NT " ■! — ßiiiii 1" : RETURN 

300 FÜRfMTOlfi : PÜKER+V , POCft J ; NEXT 

302 POKEV+28-i 127 : FÜKEV+21 , 127 : POKES 189* 18 = PÜKE8190, 20 : PGKE81S6, 8 : PRINT"»" 

305 TI*P , . l 000000" 

310 PflKEV+36,0:S¥S4096 

315 IF PEEK < 8 186 > »255 THEN180Ö 

485 REM 

490 REM LEBEN VERLOREN 

495 REM 

500 FÜRfisPEEK i V+ 1 ) TO200STEP2 = POKEV+ 1 , R : POKEV+3 , R+2 1 : POKEV+5 , R+3S 

505 POKESI+8, 220-R = PÜKESI + 1 1 , 33 = HEXT : PÜKE3I+1 1,0 = PGKE81S2, 

510 FORfl-0'TOlß : PGKEA+V, PO<ß> •' NEXT : P0KE81 89, 18 = POKES190, 20 : P0KE8186* • POKEV+30, 

520 LE*LE-l?PRINT' , M ,, TflB£28>LE 

525 IFLE-ÖTHEHP0KE211,i2:P0KE214,12:SVSCS:PRINT M S P IELEHD E":QOTO2000 

530 FÜRR-ÖTÜ2000 : NEXT : GOTO300 

985 REM ' 

990 REM RUNDE BEENDET 

9^5 pPM 

1Ö00 *SC~PEEKC81S7>+256*PEEK<8i88> :BO*6000~TI : FORfl«>0TOBOSTEP20 : SOSC+20 

1005 PQKESI+1 1,0: PÜKESI+8, 38 : PÜKESI+1 1 , 33 : PRINT"M M tflB< 16> ; SC = NEXT : PGKESI+8, 

1010 P0KE8188, INT(SC/256> : POKES 187, SC- I NT C SC/25S ) *25S : RU-RU+ 1 : POKES 182,0 

1015 IFPEEKC8181i>lTHENP0KE8181^PEEKC8181>-l 



RETURN 
RETURN 
RETURN 
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1020 E0fifNSTöiß;P0KEfi+V,P0<fi> äNEXT:P0KE8189i 18:POKE8i90,£0 

1025 POKE44ß9if?EEKC44fi9)+3-QOTO20a 

1985 REM 

1998 REM SPIELENDE 

1995 REM 

2008 FORRp0TD3000:NEXT 

2010 PüKE2ii,0:POKE214,24:SV3C8:PRINT n WüLLEH SIE NQCH EINMAL SPIELEN ? CJ/N)"J 

2015 PDKEi98i0?WflIT198.i:flETfii*:lFfl*« ,l J ,, THENPRINT ,, n ,, :RUN 

2028 STOP 

9985 REM 

9990 REM SFIELRNLEITUNG 
9995 REM 

1 0000 POKE V , 32 : FOKEV+2 , 32 = POKE V+4 , 32 = POKE V+ 1 , 1 29 : POKE V+3 , 1 50 = POKE V+5 > 1 65 
i 0805 PüKEV+28 , 7 ■ POKE V+2 1 » 7 • X-3 = V» 1 = PR I NT " IT ■ P0KE646 > 6 

10010 FDRfis0TO94:-ZsPflCfl) :Xl«P£Zi0) = Visp<Z, 1) :.päpcz.2? :X*X+X1 : V»V+V1 :Xl»X#8'+8: 
1 00 1 2 I FK 1 >2SSTHENX 1 «X 1 -255 : POKE V+ 1 6 » 7 : GOTO 1 80 1 5 

10014 POKEV+16,0 

10015 Vl«V*S+4? ; PÜKEV, XI : POKEV+2, XI : PÜKEV+4, XI : POKEV+1 j VI = POKEV+3, Vl+21 
10020 PÜKEV+5, ¥1+36 : IFP*iTHENPOKE21 1 , X : PÖKE214, V : SVSCS : PRINT 11 3 " = 
10050 NEKT:POKEVt21i0:fl**"VON THOMAS OOESMflNN" :PÖKE214, l2 : POKE646/0 
10060 FORfl»ITOLENCfl*> :FDRB«30TDfi+9STEP-l :P0KE211>B:8VSCS:PRINTMID*<fi*^fl/ 1)" % 
10070 PÜKESI+1 1 , : POKESItSi B+2Ö : PDKESI + 1 1 , 1? : NEXT : NEXT : POKESI+1 1 , 
10080 PRIHT:PRINT"M«KWIMDRUECKEN SIE EINE TfiSTE" : POKE 198« : WA IT 198, 1 
10100 PRINT**:* SP IELflNLEI TUNG" 

10110 PRINT M MUBDEI BIESEM SPIEL MUESSEN SIE VERSUCHEN, HAEUSERWAENDE ANZU"; . 
10120 PRINT'.'STREICHEN, OHNE VON HERABFALLENDEN STEINEN ODER IM HAUS " 
10130 PRINTVHERUMIRRENDEN MONSTERN BERUEHRT ZU WER- DEN. " 

10140 PRINT"HFUER JEDES STUECK, DAS SIE UMFAERBEN, ERHALTEN SIE 10 PUNKTE."; 
10150- PRINT" AM ENDE JEDER RUNDE BEKOMMEN SIE EINEN BONUS, DER VON DER BE"/ 
10160 PR I NT "NOET IGTEN ZEIT BEHRENDT. " 

10170 PfilNT ,l MiIDlE STEUERUNG ERFOLGT WAHLWEISE UEBER: - J0V8T1CK <PORT II>" 
10180 PRINT"- TASTATUR <W,R,S,Z)" : PRINT" XDMMFILLES KLAR?!" 
10190 PRINTVMMDRUECKEN SIE EINEN TASTE" 
10195 POKE198i0:WAIT198il:RETURN" 
48985 REM 

48998 REM DATAS FUER INITIALISIERUNG 
48995 REM 

49800 DATA130, 131, 129, 133,132,132,132 
49100 DATA14, 14,0,2,0,7,8,10,10,9,4,3,4,6 

49200 DATA171, 191, 171, 212, 171, 227, 0,0, 130, 100, 76, 132, 280, 164,0, 0,0 
49485 REM 

49490 REM BBTAS FUER SP I ELANLEI TUNG 
49495 REM 

49508 DATA0, -1,1,1,-1,1,1,0,1,1,1,1,0,1,1,-1,1,1,-1,0,1,-1,-1,1 
49510 DATA0,-1,0, 1,-1,0, 1,0,0, 1,1,0,0, 1,0,-1, 1,0, »1,0, 0,-1,-1,0 
49680 DATA0,,,,,,,, 2, 2, 2, 3, 4, 4, 5, 6, 6, 10, 10, 10, 9, 2, 2, 3, 4, 4, 4, 6, 6, 6,, 1,2, 9, 9,10, 2 
49610 DATA4, 4, 4, 4, 10, 10, 2, 0,0, 0,0, 3, 1,2, 3, 4, 4, 4, 18, 10, 2,,,,, 7, 2, ,,4,3,11,12,3 
4962Ö DATA2, 2, 2, 2, 0,7, 6, 6, 5, 4, 4, 3, 2, 2, 10, 10, 10,2,0,0,0,0,3,1 
49985 REM 

49990 REM DATAS FUER SPRITES 
49995 REM 

5Ö000 DATA48,0, 12, 63,255, 252,63,255,252, 15,235,248, , 170, , , 170, ,2, 170, 128,2, 170 
50Ö10 ÜATA128, , , , 1 , 25S , 64, 1 , 255, 64, 1 , 124, 64, , 124, , , 85, , , 85, , , 20, , , 20, , , 20, , , , 
50020 DATA, , , , , , 
50050 DATA48, 0,12, 63, 255, 252, 63, 255, 252, 15, 235, 248,, 170,, , 170, ,2, 170, 128,2, 170 

50100 DATA, ,,,,,,,,,,,,,,,,,., ,42, , , 106, , , 106, , ,64, , , 16, , , 16, , , 16, ,20, 16, ,85, 16, 

50110 DATA35, 12,, 85, 12,, 85, 60,, 20, 48, 3, 255, 240, 15, 255, 192, 

50150 DATA12, 255,, 12, 255, ,12, 255,, 12, 255,, 5, 40,, 5, 170,,, 170,,, 170,,, 130,,, 130,, 

50160 DATA 130* , , 130, , , 130, , , 130, ,2, 130, 128,2, 130, 128, ,,,,,,,,,,,,,,, 

50200 DATA63, 15, 192, 63, 15, 192,2, 170, 128, 10, 170, 160, 41 , 170, 104,42, 170, 168, 170 

58210 DATA165, 90, 165, 85, 98, 170, 170, 170, 42, 170, 168, 2, 0,128, 2, 128, 160,,,,,,,,, 

50220 DATA, ,,,,,,,,,,,,,,,,, 
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50253 DATA.- ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;;,;',,,/,, 178, 170' 19/ 178, 175, 170, 1 70- 

50260 BRTR255 , 85 . 35 , 255 , 85 j 95 * 255 , 85 , 35, 255 > 85 , 35 , 248 , 85 , 35 , , 

50985 REM 

50330 REM DfiTflS FUER M-CÜDE 

50995 REM 

30999 REM 

51000 DATA 169, 224, 141 ,2, 220, 173, 8; 220, 170, 41 , 1 , 288, 3, 76, 73 , 16, 138; 41 , 2, 208 

51001 BRTR3,76,137,16, 138, 41, 4, 208, 3, ?S, 201, 16, 138, 41, 8, 208,3,76, 3, 17,32,86 
51082 BRTR-17, 173, 258, 31, 281, 0,240, 11, 163, 0,141, 11, 212, 169,255,141,2,220,36 

51003 BRTA32, 75, 17, 32, 289, i7, 32, 234, 18, 76, 5, 16, 173, 1,208, 201 ,63, 208, 8, 169; 

51004 IiftTR 141, 4, 212.« 76, 40; 16; 169; 123, 141; 4, 212; 169; 8; 141. -255, 31, 206/ 253; 31. 

5 1Ö05 BATA206 , 1 , 208 , 206 , 3 , 288 , 206 , 5 , 208 , 32 , 70 , 1 7 , 32 , 203 ,17, 286 , 255 ,31, 208 , 236 
51006 BATAi69,Ö, 141,4,212, 169, 129, 141,250,7,76,40, 16,8,8,8, 173, 1,288,281,199 
51Ö07 DRTR203, 3, 76, 48, 16, 169, 8, 141 , 255, 31 , 238 , 253, 31 , 238, 1 , 208, 238, 3, 208, 238 
51008 BRTR5, 288, 32, 75, 17, 32, 289, 17, 206, 255, 31, 288, 236, 76, 48, 16, 0,8, 8; 8, 0,8 
51003 'DRTfl0,Ö;Ö/8;0;8,Ö;Ö,0.8,0,0;8;8;8,0,0,173,16,208;4i,7,234,208 i l@,173 

I 
86 




51813 BATB7, 248, 10, 173, 0, 208, 201 , 51 , 208, 3, TS, 40, 16, 169, 8, 141 , 255, 31 , 238, 254 

51014 BATA31, 173, 8.288, 288, 8, 173, 16, 208,9, 7, 141, 16, 288, 238, 8, 288,238, 2, 288 

51015 BATA238, 4, 208, 32, 75, i7, 32, 289, 17, 286; 255; 31, 288, 223, 76, 40, 16, 169, 128 
51816 BATR141, 258, 7, 162, 6, 168, 255, 136, 288, 253, 282, 288, 248, 96, 169, 8, 141, 11, 212 

51017 IIRTR173, 254, 31, 133, 211; 173, 253, 31; 133; 214, 32; 168; 229; 164. 211; 177; 283 

51018 BATA201 , 65, 2Ö8, 60, 163, 168, 145, 289, 163, 1 , 145, 243, 32, 173, 17, 173, 254, 31 
51819 BRTR24, 109, 253, 31 , 185, 8, 141 , 8, 212, 169, 33, 141 , 1 1 , 212; 169; 17; 133, 21 1 , 169 

51020 BRTfi0,l33,2l4,32, 103,229, 173,251,3i;24, 105, 18, 141,251,31, 170, 173,252 

51021 BRTR31, 105,0, 141,252,31,32,205,189,96, 169,9,133,251, 169,4,133,252,162 

51022 BRTR4, 160, 0,177, 251; 201; 65, 288, 1,3b, 136, 288; 246, 230, 252, 202;288; 239, 169 

51023 BRTA2S5, 141 , 258, 3 1 , 96, 0, 8, 0, 238, 246, 31 , 173, 246, 31 , 205, 245, 31 , 248, 1 , 96 
Si824 BRTRi69,0, 141, 246, 31, 173, 249, 31, 208, 35, 238, 8, 288, 208, 8, 173, 16, 208, 3, 16 
51Ö25 BRTR141, 16, 208, 173, 16, 208, 41, 16, 248, 12, 173, 8, 208, 281, 40, 208, 5, 169, 1,141 

51026 BRTR249, 31 , 76, 31 , 18, 206, 8, 208, 173, 8, 208, 201 , 255, 288, 8, 173, 16, 208, 41 , 233 

51027 DRTR141, 16, 208, 173, 16, 288, 41, 16, 208, 12, 173,8, 208, 281, 48,208, 5, 169, 0,141 
51828 BRTR249, 31 , 173, 248, 31 , 288, 35, 238, 10, 208, 288, 8, 173, 16, 288, 3, 32, 141,16 
51029 BATR2Ö8, 173, 16, 208, 41 , 32, 240, 12, 173, 10, 288, 201 , 40, 288, 5, 169, 1 , 141 , 248 
51830 BRTR31,76, 124, 18,286, 18,288, 173, 18,208,281,255,288,8, 173, 16, 288, 41; 223 

51031 BflTR14i, 16, 288, 173, 16, 208, 41, 16, 288, 12, 173, 10, 208, 281, 48, 208, 5, 169,0 

51032 BRTR14i,248,31, 173,247,31,208,35,238,12,288,208,8, 173, 16,208,9,64, 141 
51833 BRTR16, 288, 173, 16 , 208, 41 , 64, 248, 12, i73, 12, 288, 281 , 48, 288, 5, 169, 1 , 141 

51034 BRTR247, 31, 76,201, 18,206, 12,208, 173, 12,208,201,255,208,8, 173, 16,208,41 

51035 ÜRTR131, 141, 16,208, 173, 16,208,41,64,288, 12, 173, 12,288,281,48,208,5, 163 

51036 BRTR8, 141, 247, 31, 76, 41, 13, 8,0, 8,8, 8, 6, 7, 8, 3, 10, 12, 13, 14, 15, 16, 2, 13, 20 

51037 BATR21, 22, 24, 25, 26, 27, 28; 30,31 ; 32, 33, 34, 173,30,288, 178, 41, 7, 248, 16,138 
51838 BRTR41, 112, 240, 11, 138, 41, 8,248,6, 163, 8, 141,30,208,36,138,41,7,208,1,36 
51039 BRTR138, 41,8, 208, 22, 138, 41 , 1 12, 208, 1 , 96; 162, 25, 183, 2Ö9, 18, 205, 254 , 31 
51848 BRTR240,6,282,224,255,288,243,36, 169,1, 141, 250, 31,96,173, 240, 31, 288. 48 
51041 BATR173, 4, 220, 201, 128, 176, 1,96, 169, 1,141, 240, 31, 173, 16,208,41,119,141 
51842 BRTR16, 288, 173, 16, 208, 41, 1,240, 8, 173, 16, 288, 9, 8, 141, 16, 288, 173, 8,288 
51043 BRTR141, 6, 208, 163.« 0,141, 7, 208, 96, 234, 234, 234, 238, 7. 208, 173,7,208,281 
51844 BRTR248,240, 1,96, 163,0, 141,240,31,36 

51985 REM 

31990 REM BfiTRS FUER 2EICHEN3RTZ 

S i 'S'-'S REM 

52000 DATA 65,255,186,186,186,255,171,171,171 

52385 REM 

52990 REM BRTRS FUER TRSTRTURSTEUERUNO 

52995 REM 

53008 BRTR234, 234, 234, 234, 234, 234, 165, 283, 178, 281 , 3, 288, 3, 76, 73, 16, 138, 201 

53085 BRTR12, 208, 3, 76, 137, 16, 138, 201, 10, 208, 3, 76, 281, 16, 138, 201, 13 
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Verteidigen Sie Ihren Hauptplaneten. 
Zerstören Sie mit Ihren Marschflug- 
körpern die feindlichen Abfangjäger. 
Aber - nehmen Sie sich in acht vor 
den Geschützen der feindlichen Jäger, 
denn mit jedem Treffer, den Sie ein- 
stecken müssen, nähert sich der To- 
desstern dem Planeten Thor und zer- 
strahlt diesen nach 4 Treffern zu kos- 
mischen Staub. 

Nach dem Programmstart braucht der 
Rechner eine kurze Zeit, um die Grafik 
zu initialisieren. Dies geschieht jedoch 
nur vor dem ersten Spiel. Sobald ein 
Spiel beendet ist und ein neues Spiel 
gestartet wird, entfällt die Initialisie- 
rungsphase. 

.Sie sitzen in Ihrem Raumschiff und 
schauen durch das Cockpitfenster ins 
All. Sie rasen mit Ihrem Sternenjäger 
durch den Graben des Todes. Sobald 
das Spiel begonnen hat, taucht in der 
Mitte des Grabens hinter dem Todes- 
stern ein feindlicher Jäger auf. Um die- 
sen Jäger abzuschießen, drücken Sie 
den Aktionsknopf am Joystick und so- 
fort setzt sich ein lenkbarer Marsch- 
flugkörper in Bewegung. Lenken Sie 
diesen Marschflugkörper zum Feind. 
Wenn Sie getroffen haben, so explo- 
diert der Jäger. Denken Sie jedoch 
daran, daß nur ein exakter Treffer den 









1 REM ******************* 

2 REM * TRÜNIC-SÜFT * 

3 REM * PfiESENTS * 

4 REM * TÜDESSTERN * 

5 fiEM $ C64 VERSION . * 
b REM * CO BEI F. BRAU * 
?' REM ******************* 

8 POKE 56,128:P0KE 648,4 

9 POKE S32S 1,0: POKE 53288,2 

10 POKE 54298,1 29 : PQKE54296', . 15 

1 1 POKE 54292 , 255 : P0KE5428? , 1 

14 PR I NT "3SWr RON IC- VERLAG POSTFACH 



Jäger zerstört. Von Zeit zu Zeit 
schleudert Ihnen der feindliche Jäger 
eine Feuerkugel entgegen. Gleichzei- 
tig mit der Feuerkugel erscheint in der 
Mitte des Grabens ein Zielkreuz, wel- 
ches Sie mit dem Joystick steuern 
können. Führen Sie das Zielkreuz ex- 
akt über die Feuerkugel, und drücken 
Sie den Aktionsknopf, um die Kugel zu 
zerstören. Gelingt es Ihnen nicht, sie 
zu zerstören, bevor diese Ihren Jäger 
erreicht, so müssen Sie einen Treffer 
einstecken, und nach 4 Treffern heißt 
es: EXITUS für Thor. Nach diesen 4 
Treffern sendet- der Todesstern Laser- 
strahlen zum Planeten Thor aus und 
löst ihn zu kosmischen Staub auf. Da- 
nach können Sie durch Druck einer 
beliebigen Taste ein neues Spiel begin- 
nen. 

Während des Spieles kann durch die 
Taste F7 das Spiel angehalten werden. 
Durch Drücken des Joysticks wird das 
Spiel wieder fortgesetzt. 
Um Star Battle möglichst interessant 
zu machen, steigt der Schwierigkeits- 
grad bei jedem Treffer. Selbst erfahre- 
ne „Piloten" werden kaum mehr als 
5000 Punkte erreichen. 
Am oberen Bildschirmrand ist die An- 
zeige eingeblendet. Die rechte Punkt- 
anzeige zeigt die aktuellen Punkte an. 
Die 4 gelben Kästchen in der Bildmitte 
geben die Anzahl der Schutzschilder 
an. Sobald Sie einen Treffer hinneh- 
men mußten, entfällt ein Schutzschild. 
Sind alle Kästchen erloschen, wird der 
Planet zerstört. 
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IS PRINT" Sl 
20 PRINT "HM 
30 PRINT"* 
40 PRINT" 
5Ö PRINT" 
68 PRINT" 
70 PRINT" 
80 PRINT" 
SO PRINT" 
91 PRINT" 
100 PRINT" 
116 PRINT" 
128 PRINT" 
130 PRINT" 
140 PRINT" 
150 PRINT" 
ISO PRINT" 
170 PRINT "30 
175 FORI «0 

190 FORI* 1024 

191 NEXTI 
1600 U*Ö:FOftl: 



TRüN 



IC - 8 Ü F TW 
PRESENTSM" 

*;*;** ***** $**$ .**;** " 

* *' " 

* * " 
**** " 

* * » 



* 



* 

mm 

* * 

* * 

* * 



* 
* 

w. 

* 



* * 

* * 

* * 

* * i 

* * i 

*** 

* * 



* i 

* r 

* * 



liKC) 1994 BEI FRANK 

TD 16-PüKE 

:4 Tu 1 924-1-999 : IF 



* 
* 

* * 
* 

* 
* 

* * 



»" 



* 
* 



*" 
#" 




DRALL MfiPLEflSE WfllT" 
1 TD 200 :NEXTQ: NEXTI 
PEEK<I>«42 THEN POKE 1,168 



532814 1 :FORQ 



*080 Tu 3489? = REAB W- POKE I, HR = LHJ+Bfl: NEKTI 



1010 IF Ü O 
10000 DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
BF! TA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



10801 
10002 
10003 

10804 
18805 

10006 

10007 

10Ö08 

100Ö9 

1Ö010 
10011 

iö0 12 

10813 

10014 
10Ö15 

10016 

10817 
10818 
18819 
10020 
1Ö021 
10022 
100* 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



24100Ö THEN PRIN'PSFEHLER IN DATA-ZEILEN" : STOP 
234.. 32.. 52.< 133 , 120.. 169, 103, 141,20,3.-169, 132, 141.-21 ,3,88, 32 
88, 130,32,56, 130,76, 123, 134, 173, 138, 128, 174, 137, 128, 142,8,288 
168, 1, 162,254,76, 138, 129, 173, 140, 128, 174, 139, 128, 142,2,288, 160 
2, 162,253,32, 138, 129, 173, 163, 128,208, 1 , 96, 76, 13, 138, 17^, 142 
128, 174, 141, 128, 142,4,288, 160,4, 162,251,76, 138, 129, 173, 144, 128 
174, 143, 128, 142/6,208, 168,8, 162,247,76, 138, 129, 173, 146, 128, 174 
145, 128, 142,8, 208, l£ö, 16, 162, 239,76, 138, 129, 173, 148, 128, 174, 147 
128, 142, 18,208, 168,32, 162,223,76, 138, 129, 173, 150, 128, 174, 149, 128 
142, 12,208, 168,64, 162, 191 ,76, 138, 129, 173, 152, 128, 174, 151, 128, 142 
1 4 , 208 , 1 68 , 1 28 , 1 62-, 1 27 , 76 , 1 38 , 1 29 > 20 1 , , 248 , 8 , 1 52 , 1 3 , 1 6 , 288 
141, 16,208,96,138,45,16,208,141,16,208,96,173,30,288,41,192 
201, 192,248, 1,96, 169,0, 141 ,30, 208,32, 1 19, 131, 169,0, 141, 13 
288, 141, 163, 128, 169,, 8, 141, 249, 287, 32, 35, 130, 238, 249, 287, 32, 35 
130,238,249,287,32,35,138,169,6,141,249,207,24,173, 166,128,185 
150, 141, 166, 128, 173, 167, 128, 105,8, 141, 167, 128, 162,0, 168,6,24 • 
32,240,255,169,0,133, 199, 174,166,128,173,167,128,32,285,189,32 
56, 138, 1 r'3, 27, 212, 41 , 3, 288, 8, 169, 1,141, 162, 128, 32, 65, 134 
32,3, 132,96, 1?'" J - 
15,208, 

255, 136, 288,253,282,208,248, 184, 168, 184, 178, 184,96, 169,8, 141, 140 
128,169,200,141,139,128,169,150,141,3,288,32,17,129,206,3,288 
32,35,130,173,3,208,201,130,208,243,96,172,165,128,169,288,153 
19,204,169,7,153,19,216,152,72,32,124,138,32,35,130,32,35 
130, 32, 35, 130, 32/ 35, 1 38, 104, 168, 136, 288, 224, 96, 169, 8,141,4 



* t 148, 128, 174, 139, 128, 142, 14,288, 172, 3,288, 148 

7 '"' 162,63,160 



160, 128, 162, 127,76, 138, 129, 72, 138,72, 152, .'*:, 



100^^5 Unm läBiäAtÖZl* l&Qtätt* J3j 1JB; iU4, lbö, l-3fo,itüö,2£4,yb, lfey,ö, 141,4 

18024 DATA 212, 169,^28, 141, 1,212, 169, 10, 141,5,212, 169,8, 141,6,212, 169 



DATA 19,141,4,212,96,160,3,169,2,141,33,288,32,35,138,169,7 
DATA 141,33,288,32,119,131,32,35,138,169,1,141,33,288,136,288,229 
DATA 169,8,141,33,288,32,35,138,32,35,138,172,165,128,169,32,153 
DATA 19, 204, 286, 165, 128, 172, 165, 128, 288, 27, 184, 104, 168, 8, 185, 71 , 136 
DATA 153,288,205, 136, 16,247, 169,8, 133, 198,32,238, 131, 165, 198,248,249 
DATA 76,232, 128,234,32, 124, 138,96,32,284, 131,56, 173, 137, 128,237, 149 
DATA 128,141,134,128,173,138,128,237,158,128,141,135,128,281,0,248,1 
18032 DATA 96,173,134,128,240,1,96,56,173,1,208,237,13,288,141,134,128 
DATA 41,224,248,1,96,169,8,141,254,287,32,119,131,32,35,138,32 
DATA 35,138,238,254,287,32,35, 130,32,35,130,238,254,267,32,35,130 
DATA 32,35,138,169,0,141,162,128,141,1,288,141,13,208,32,35,138 
DATA 24, 173, 166, i28, 105,288, 141, 166, 128, 173, 167, 128, 185, 8, 141, 167, 128 
DATA 162, 8, 168, 6, 24, 32, 240, 255 , 169, 8, 133, 199, 174, 166, 128, 173, 167 



1 Ö02b 
10026 
1002? 
10828 
18029 
lö 038 
1Ö8'31 
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10038 
10039 
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1004i 

1Ö042 
10043 

10Ö44 
18045 
10846 
188 47' 
1ÖÖ48 
10Ö49 

10050 

10051 

1 9052 
10053 
1 Ö054 
1Ö0S5 
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1805? 

10058 
10059 
10060 
10061 
10062 
10963 
10064 
10065 
18066 
10067 
10068 
10069 
1007Ö 

10071 

10072 

10073 
10074 
10075 
10076 

100?? 

10079 
10ö?9 
1Ö880 

10081 

10032 
10083 
10084 
10085 

10086; 

10037 
1Ö088 
10039 
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10091 
10092 
10093 
10094 
10095 
10096 

1009? 

10098 



BAT Fl 

DRTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DATA 

DflTfl 

DflTfl 
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DflTfl 

DflTfl 
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DRTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DRTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 

DflTfl 
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128,32,205. 189,104,104,76,123,134,169,0/141,4,212,169,15,141 
1,212, 169, 12, 141,3,212, 169, 10, 141,6,212, 169, 131, 141,4/212 
96,72,169,0,141,4,212,169,5, 141,1,212,169,13, 141,5,212 
169,10,141,6,212,169,19, 141,4,212,104,96,72,173,13,208,233 
80 ,141,1,212,104, SS , 1 65 , 203 , 20 1,3:. 240 , 1 , 96 , 1 69 , 224 ,141,2 
228,173,0,220,41, 16,208,249,96,169,0,141, 11,212,169,8,141 
8,212,169,5,141,12,212,169,10,141,13,212, 169, 131, 141,11,212 
96.169,10,141,250,207,141,251,207,141,252,207,141,253,207,169,9 
141 , 258, 207, 141 , 251 , 207, 141 , 252, 207, 141 , 253, 207, 96, 173, 168, 128, 201 
255 , 208 , i , 96 , 238 , 1 &'ö , 1 28 , 1 73 , 1 69 , 1 28 , £01,1 8 , 248 , 9 , 206 , 1 69 , 1 28 
173, 169, 128, 141 , 5, 220, 173, 168, 128, 201 , 28, 208, 5, 169, 1,141, 254 
129, 173, 168, 128,41,3,208,217, 173, 17, 135,281, 2, 248, 210,206, 17 
135,206, 17, 135,96, 168,217, 132,248, 160,0, 132,247, 177,247,41, 15 
28 1,5, 208 ,4,1 BS , 1 3 , 208 , 6 , 20 1 , 1 3 , 288 ,2,1 63 , 5 , 145 , 24? , 280 




20 1,6, 208 , 4 , 1 69 , 7 , 208 , 6 , 20 1 , 7 , 208 , 2 , 1 69 , 6 , 1 4 1 , 249 , 287 

238, 161, 128, 173, 161, 128,201, 15,208, 13, 169,0, 141, 161, 128, 173,2? 

2 1 2 , 4 1 , 1 , 1 4 1 , i 6 , 1 28 , 234 , 1 73 , 1 60 , 1 28 , 20 1 , 1 , 28 tf , 3 , '42 , Z2tt , 1 32 

i 7 3 , 1 6ö , 1 28 , 28 1,0, 288 , 3 , 32 , 1 2 , 1 33 , 234 , 32 , 1 84 ,131 , 76 , 49 , 234 

173, 140, 128,208, 15, 173, 139, 128,201,50,208,8, 169,0.« 141, 168, 128 

76, 12, 133,56, 173, 139, 128, 233, 1, 141, 139, 128, 173, 146, 128,233,0 

141, 140r, 128,76, 17, 129, 173, 140, 128,240. 15, 173, 139, 128,201,50,48 

8, 169, 1, 141, 16Ö, 128,76, 228, 132,24, 173, 139, 128, 105, 1, 141 , 139 

128, 173, 146, 128, 105,0, 141, 140, 128,76, 17, 129, 169, 14, 141,37,208 

169, 7, 141, 33, 203,169, 4, 141, 39, 268, 169.4, 141, 48, 298 .-169, 5 

141,41,208, 169,5, 141,42,208, 169,5,141,43,208, 169,5, 141,44 

208,169,2,141,45,208,169,60,141,28,208,169,255,141,21,208, 169 

2,141,27,208,169,0,141,248,207,169,6,141,249,207,169,11,141 

250,287,169,12,141,251,287,169,13,141,252,207,169,14,141,253,20? 

169,5,141,254,207,169,15,141,255,207,169,0,141,138,128,141,140 

128, 141 , 142, 128, 141 , 144, 128, 141 , 146, 128, 141 , 148, 128, 141 , 158, 128, 141 

152, 128, 169, 180, 141, 141, 128, 141, 145, 128, 169, 124, 141, 143, 128, 141, 147 

128, 169, 55, 141, 5, 208, 141, 7, 208, 169, 76, 141, 9, 288, 141, 11, 288 

32,42,129,32,58,129,32,74,129,32,90,129,169,8,141,153,128 

141 > 154, 128, 141 i 155; 128, 141, 156, 128, 141, 157, 128, 141, 158; 128, 141, 159 

128,141,161,128,141,166,128,141,167,128,173,27,212,41,1,141,160 

128, 169,8, 141, 162, 128, 169,4, 141, 165, 128, 160,6, 169,32, 153,5 
284,136,208,248,160,9,169,32,153,199,285,136,208,248,169,0,141 
38 , 288 , 169, 0,141, 168, 128, 169, 58, 141 , 5, 228, 141 , 169, 128, 169, 13 
141, 17, 135.. 169, 3, 141 ,254, 129,96, 169, 175, 141, 137, 128, 169,8, 141 
138,128,169, 108,141, 1,288, 32, 1,129, 169, 1,141, 254, 287, 32, 145 
131, 169,240, 141,5,212, 173,3,288, 141, 13,288, 173, 139, 128, 141, 149 
128, 173, 148, 128, 141 , 150, 128,32, 186, 129, 169, 1, 141, 164, 128,96, 173 
162,128,208,3,76,95,135,169,224,141,2,220,173,8,220,41,1 
208, 3, 32, 87, 135, 173, 8, 229, 41,2, 288, 3, 32, 91 , 135, 173, 8 
228, 41, 4, 268, 3, 32, 29, 135,173, 0,220, 41, 8, 288, 3, 32, 57 
135,173,0,220,41,16,208,3,32,238,130,169,255,141,2,228,32 
i, 129, 173, 164, 128,73, 1, 141, 164, 128,208,68,238, 13, 288, 173, 13 
208,233,130,141,1,212,173,13,208,201,180,288,3,238,254,207,281 
190,208,11,238,254,207,169,0,141,164,128,173,13,288,201,280,288 
3, 238, 254, 287, 201 , 218, 288, 3, 238, 254, 207, 201 , 258, 288, 14, 169, 8 
141, 162, 128, 141, 1,288,32, 158, 138,76, 123, 134, 162, 13, 168,255, 136 
288,253,202,288,248,76, 123, 134, 173, 138, 128,288,5, 173, 137, 128,248 
17,56, 173, 13?, 128, 233, 1, 141, 137, 128, 173, 138, 128,233,8, 141, 138 
128,96, 173, 138, 128,240,7, 173, 137, 128,281,88, 16,243,24, 173, 137 
128, 105, 1, 141, 137, 128, 173, 138, 128, 185,0, 141, 138, 128,96,286, 1 
288, 96, 238, 1,208, 96, 169, 224, 141,2, 228, 173,0,228, 41, 16, 288 
3, 32, 25, 136, 173, 8, 228, 41 , 4, 288, 3, 32, 223, 135, 173, 8, 228 
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50100 
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550Ö0 

55001 

55Ö02 

55Ö03 

55004 

55005 

55006 

5500? 

55809 

55010 

55011 

55012 

55013 

55014 

550 i 5 

5501b 

5501? 

55018 

55019 
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DATA 41,8,208,3,32,252,135,169,255,141,2,220,173.163,128.208,3 

DATA 76, 16, 135,206, 13,208,32, 158, 123,32, 173, 131, 173, 13,208,201,220 

DATA 208, 3, 206, 254, 207, 201 , 210, 208, 3, 206, 254, 297, 201 .- 280, 208, 3, 206 

DATA 234', 20? , 20 1 , 1 90 , 208-, 8 , 206 , 254 , 28? , 1 69 , 1 , 1 4 1 , 1 64 , 1 28 , 20 1 , 1 33 , 208 

DATA 28, 169,0, 141, 163, 128, 169,0.. 141, 13,208, 141* 1,212, 173,27,212 

DATA 41,3,208,8, 169, 1, 141 , 162, 128,32,65, 134.. 76.. 16, 135, 173, 164 

DATA 128,73, 1, 141, 164, 3.28,56, 173, 149, 128,237, 164, 128, 141, 149, 128, 173 

DATA 150, 128,233,0, 141, 150, 128,76, 106, 129, 173, 164, 128,73, 1, 141, 164 

DATA 128,24, 173, 149, 128, 189, 164, 128, 141 , 149, 128, 173, 150, 128, 105, 0, 141 

DATA 150, 128,76, 106, 129, 173, 163, 128,240, 1, 96, 169,5, 141,254,207, 169 

DATA 3, 141, 164, 128, 169,230, 141, 13,208, 169, 178, 14.1 ,149, 128, 169,0, 141 

DATA 150, 128,32, 106, 129, 169, 1, 141, 163, 128, 173,30,208,32, 145, 131,96 

DATA 7,1,13,5,32,15,22,5, 18,10,224 

REM. VIDEOCOHTROLLER UMSTELLEN. 

REM SPRITES HB 49152 ~ $C000 

REM SPRITESPQINTER 53240 ~ *CFF8 

REM VIDEOSCREEN AB 52224 ~ *CC00 

REM ZEICHENSfl'TZ AB 53248 = $D880 

REM 

U=0.'fORI« 32768 TO 32900 : READ DA: U»U+DA:PÜKE1, DA^NEXTI :SVS 32768 

1F U014282 THEN RR INT "»»»EHLER IN DATA-ZEILEN" • STOP 

REM *** MASCHINENPROGRAMM *** 

DATA 76,6,128,76,73,128,120,173,0,221,41,252,141,8,221,169,52 

DATA 141,24,208,169,204,141,136,2,169,97,141,17,3,169,128,141,18 

DATA 3, 160, 0, 132, 3, 169, 208, 133, 4, 162, 16, 169, 51 , 133, 1 , 177, 3 

DATA 72 , 1 69 , 48 , 1 33 , i , 1 04 , 1 45 , 3 , 200 , 208 , 239 , 230 , 4 , 202 , 208 , 234 , i 69 

DATA 55, 133, 1,88,96, 120, 165, 1,72,32,253, 174,32,235, 183, 169,48 

DATA 133, 1, lbö,0, 138, 145/20.. Ü34, 133/1,88,96, 165,20, 72, 165,21 

DATA 72,32,247, 183, 165, 1,72, 169,52, 120, 133, 1, 160,0, 177,28, 168 

DATA 104,133,1,88,104,133,21,104,133,20,76,162,179,255 

REM ***: SPRITES 8 BIS 15 *** 

FÜRI = 49152 TO 50 175 : READ, DA : POKE I,Dfl:NEHTI 

DATA 0,62, 0,ö, 235, 128, 3, 136, 224, 6, 8, 48, 12, 28, 24 .-24, 73 

DATA 12,24,8,12,49,8,70,48,8,6,98,20,35,127,227,255,98 

DATA 28 , 35 , 48 ,8,6, 49 , 8 , 70 , 24 , 8 , 1 2 , 24 , 73 ,12,12 , 28 , 24 

DATA 6, 8 , 48, 3, 136, 224, 8, 235, 128, 0, 62, 0, 64, 0, 0,0,0 

DATA 8,8, 8,0,0,8, 8, 8, 8, 8,8, 0, 8, 8, £1, 8, 

DATA 0, 14, 8, 8, 63, 8, 8, 63, 8, 8, 31 ,0,0, 38, 0,8,8 

DATA 8, 8, 8, 0, 8, 8, 8, 8, 6, 8, 0,8,0,0,8,8, 

DATA 8,8, 8, 8, 0,8,8,8,0,8,0,8, 0, 0,8,8, 

DATA 0, 0,8, 0, 8, 0, 0, 8, 14,0, 0, 127, 8, 8, 255, 128, 

DATA 255, 128,0,255, 192, 1,255, 192,8,255, 192,0, 127, 128,8,30,8 

DATA 8,8,8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,8,8, 8 

DATA 8, 0, 0, 8, 192, 8, 8,8, 8,0, 8, 0, 8, 0,0, 8, 8 

DATA 8 , 62 ,0,1 , 255 , 1 92 , i , 255 , 1 92 , 3 , 255 , 224 ,3,255, 224 , 7 , 255 

DATA 240 , 7 , 255 , 24Ö , 7 , 255 , 248 , 3 , 255 , 224 , 3 , 255 , 224 , 1 , 255 , 1 92 , 

DATA 255, 192, 8, 38, 8, 0, 8, 8, 8,0, 8, 8, 8, 0, 8,8., 

DATA 160, 0,0, .0,8, 8,0, 8, 31, 8, 0,255, 192,3,255,224,7 

DATA 255,248,7,255,248,15,255,248,15,255,248,15,255,252,31,255,252 . 

DATA 3 1 , 255 , 252 , 1 5 , 255 , 248 ,15, 255 , 248 , 7 , 255 , 248 , 3 , 255 , 248 , 1 , 255 

DATA 224 , 8 , 255 , 1 28 , 8 , 62 ,8,8,8,8,0,8 , 8 , 3 1 , 8 , 62 , 8 

DATA , 255 ,128,3 , 255 , 224 , 7 , 255 , 248 ,15, 255 , 248 ; 3 1 , 255 , 252 ,31, 255 

DATA 252, 63, 255, 254, 63, 255, 254, 127, 255, 255, 127, 255, 255, 127, 255, 255, 63 

DATA 255 , 254 , 63 , 255 , 254 ,31, 255 , 252 ,31, 255 , 252 ,15, 2g3 , 248 , 7 , 255 , 240 

DATA 3 , 255 , 224 , 8 , 255 , 1 28 , 8 , 62 , 8 , 95 , , 0,8,8, 8 , 8 , 

DATA 8,8,4,0, 16,8,0,8,20,8,28, 19,8,188,16,128,132 

DATA 16,93,4, 16, 127,4, 16,281, 132, 16, 127,4, 16,93,4, 16, 128 

DATA 132, 19,8, 188, 28, 8, 28, 8., 8,8, 4, 8, 16, 8,8, 8, 8 

DATA 0,0,0,8,0,191,0,0,0,0,0,8,0,0,0,1,128 

DATA 192,2,0,32,4,8,16,11,0,184,16,128,132,16,93,4,16 

DATA 127,4, 16,281, 132, 16, 127,4, 16,93,4, 16, 128, 132, 11,8, 184 
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5505Ö 

55851 
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55059 
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55Ö6 i 

55062 

55063 

55Ö64 

55065 
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55Ö68 
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550? i 
55073 
55j3?4 
55Ö?5 
55076 
5507? 
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55Ö79 
55080 
55Ö8 1 
55082 
55083 
55084 
55085 

55087 
55888 
55089 

55Ö91 
55181 
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6ÖÖ03 
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6008? 



i, 164 
«,31, 1@6 

,158 



DATA 4,8,16,2,0,32,1,128,192,0,8,8,8,0,8,0,0 

DATA 0, 255, 8, 8, 0, 0, 8, 8, 0,0, 0,0, 8, 8,8, 8, 8 _ 

DATA 0,8,0,0,8, ö,0,8, 8, 8,26, 8,8,1 18, 8, 8,53 

DATA 128, 8, 38, 8, 8, 63, 8, 8 , 21 , 128, 8, 8, 8,8, 8,8, 8 

DATA 8, 8, 8,8, 8, 8, 8, 8,8,8,8, 8,8,8, 64, 8, 8 

DATA 0, 0, 0, Ö, 8, 0,0, 0, 8,8, 8, 8, 8,0, 8, 128, 8 

DATA 2 , 8 , ö , 64 ,8,0,154,64,8,118, 32 , , 3? , 1 28 , 8 ,16, 32 

DATA 1 , 181 , 32, 0, 21 , 128, 8, 64, 0, 2, 17, 64, 0, 6,8, 8, 8 

DATA 0, 8 ,8,8,8,8,0,0,8,8,8,0 , 8 , 8, 2,8, 

DATA 0, 8,8, 0,8,0, 18, 8, 8, 8, 0, 128, 24, 2, 6, 8, 8 

DATA 8 , 32 , , 68 ,8,8 , 32 , 8 , , 10 , 96 , 64 , 32 , 40 , 8 , 32 , 8 

DATA , 2 , 32 , 8 ,0,2,8 , 72,0,6,0, 32 , 8 , 0,8, 32 , 8 

DATA 12, 72, 8, 0, 8, 64, 64, 0, 8, 8,8,8,0,8,8, 8, 8 

DATA 8 , 8 , 8,8,21 , 8 , 8 , 98 ,8,1,1 F0 .- 8 , 22 , 1 78 , 8 , 26 , 1 78 

DATA 8,98, 169,0,85,85, 1, 165, 127,6, 149,255,6,86, 162,5,98 

DATA 178,26, 178, 178, 21, 178, 178,71,258, 149,85, 171, 178,90, 178, 178, 106 

DATA 178, 254, 168, 0,8, 8,8, 0,8,8,8, 8,8, 8, 0, 84, 

DATA 8 < 1 65 ,0,8,1 78 , 64 ,8,1 78 , 1 48 ,8,1 78 .. 1 64 , 8 , 1 86 , 1 65 , 8 , 85 

DATA 85 , 8 , 253 , 98 , 64 , 255 , 86 , 1 44 , 1 38 , 1 49 , 1 44 , 1 78 , 1 65 , 88 , 1 78 , 1 78 

DATA 1 78 , 1 78 , 84 , 86 , 1 75 , 289 , i 78 , 234 , 85 , 1 78 , 1 78 , 1 65 , 1 9 1 , 1 78 , 1 69 , 

DATA 1 70 , 254 , 98,1 78 , 98 , 85 , 1 7 1,182,71, 258 ,85,21,1 78 , 1 70 , 26 , 1 78 

DATA 5 , 98 , 1 SS , 6 , 86 , i 46 , 6 , 1 49 , 2 1 5 , 1 , 1 65 , 1 27 , 1 , 85 , 85 , 8 , 86 

DATA i 69 , Ö , 89 , 1 78 , 8 , 86 , 1 78 , 8 , 5 , 1 78 , 8 , 8 , 98 , 8 ,8,2 1 ,• 8 

DATA 8.1,8, 8 , 8 , 8 , 8 , 8 , 8 ,8,8 , 95 ,191,1 78 , i 69 , 1 78 , 1 78 

DATA 165, 178,234,85,86, 175,289, 178, 178,84, 178, 178, 164, 178, 165,88, 138 

DATA 1 49 , 1 44 , 255 , 86 , 1 44 , 253 , 9\ä , 64 , 85 , 85 ,8,1 86 , 1 65 , 8 , 1 78 , 1 64 , 8 

DATA 1 78 , 1 4 8 ,8,1 78 , 64 , 8 , 1 65 , , 8 , 84 , 8 , 8 ,8,8 , 8,8, 8 

DATA 8 .< @ .< 8 , 8 , 8,8, 8 ■■ 1 59 , , 8 .■ 8 , 0,8,8, , 8,0 

DATA 8 , 8 ,8,8,0,0 , 8 , Ö ,8 ,8,8,8 , 8,8,8,8, 8 

DATA 0,8, 28 , 8 , 8 , 28 , 8 , , 8 ,0,0 , , 8 , , 8 , 8 , 8 

DATA 8 , 8 , 8 , 8 , 8 , 8 ,0,8,8,8, 8 , 8 , 8 * ö , ,8,6 

DATA 0,0,8,255 

REM *** ZEICHENSflTZ flENDERN *** 

DATA 27 ,0,8,8,8,32,0,0,0 

DATA 29 ,8,0,96,8,8,4,0,8 

DATA 135 , 8, 8, 8, 8, 1 ,7, 14, 15 

DATA 1 36 , 3 , 6 , 1 2 , 28 , 248 , 1 04 , 288 , 248 

DATA 1 58 , 11,6 , 7 ,14,24 , 56 ,112,192 

DATA i 5 1 , 248 , 248 , 224 , 64 , 8 , 8 , 8 , 8 

DATA 165 ,4,221,221,221,228,255,8,255 

DATA 166 ,48,1 82 , 1 76 , 1 83 , 55 , 255 , 8 , 255 

DATA 1 ?6 , 254 , 254 , 253 , 253 , 25 1 , 25 1 , 247 , 247 

DATA 1 7? , 239 , 239 , 223 , 223 , 1 91 ,191,1 27 , 1 2? 

DATA 1 78 , 127,127,191,191, 223 , 223 , 239 , 239 

DATA 1 79 , 247 , 247 , 25 1 , 25 1 , 253 , 253 , 255 , 254 

DATA 1 38 ,8,0,8,0,8,15, 63 , 255 

DATA 181 ,8,8,8,8,0, 248 , 252 , 255 

DATA 285 , 127, 191 , 223, 239, 247, 251 , 253, 254 

DATA ,206 , 254 , 253 , 25 1 , 247 , 239 , 223 , 1 9 1 , 1 27 

DATA -1 
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Inmac Kabel-Tester: 

defekte Leitungen im Nu entdeckt 



Kabel- Funktionstest in Sekunden- 
schnelle - das bietet Inmac mit dem 

Kabel-Tester für RS232/V24-Kabel. 




Noch nicht installierte Kabel lassen 
sich an beiden Enden mit dem Kabel- 
Tester verbinden. Alle Adern des Ka- 
bels werden nacheinander vollauto- 
matisch getestet. Pro Sekunde erfolgt 
eine Messung. Die integrierte 9 -Volt- 
Batterie versorgt, das Testgerät mit 
Strom. Bis zu 70 Stunden lang. Der 
Testablauf läßt sich an den 50 LEDs 
genau verfolgen. Sie zeigen an, welche 
Leitungen Verbindung haben. Das je- 
weilige Testergebnis läßt sich an drei 
weiteren Leuchtdioden ablesen. 

Bereits installierte Kabel prüft der zu- 
gehörige Tele-Motor. Er zeigt Testab- 
lauf und -ergebnis an, während der 
Kabel-Tester die Prüfimpulse sendet. 
Hierfür müssen jedoch beide Geräte 
geerdet sein. Zusätzlich läßt sich mit 
dem Kabel-Tester die Steckerbele- 
gung von Fremdkabeln blitzschnell 
entschlüsseln. 

Den Inmac Kabel-Tester für RS232/ 
V24-Kabel gib es - mit 30tägiger Pro- 
bezeit - schon 24 Stunden nach dem 
Auftragseingang bei Inmac, Frankfur- 
ter Straße 103, 6096 Raunheim, Tel.: 
6142 / 40 60. 

Oder bei Inmac, 

Heerdter Lohweg 51, 4000 Düsseldorf 

11. Der Kabel-Tester kostet netto 

DM 798,-. 



Software Infos 



Aktuelle Arbeitsprogramme 

von Dynamics marketing 

für den Commodore 64 



„FAKTURA 64' 



Die Fakturierung ist eines der lei- 
stungsfähigsten Programme auf dem 
Commodore C64 überhaupt. Vorbild- 
lich in der Benutzung, menuege- 
steuert, bildschirmorientiert und mit 
erklärenden Texten, die jederzeit ab- 
gerufen werden können, erfüllt das 
Programm alle Wünsche des Anwen- 
ders. 

Das .Programm verwaltet 1000 Daten- 
sätze, die wahlweise aufgeteilt, der 
Kundendatei, Lieferantendatei oder 
Artikeldatei zugeordnet werden. Fest- 
werte wie Mehrwertsteuer, Rabatt- 
und Skonto sätze werden einmal er- 
faßt, gespeichert und vom Programm 
automatisch eingesetzt. Das Pro- 
gramm unterstützt bis zu zwei Lauf- 
werken, Druckeradressen sind ein- 
stellbar. Bis zu 9 Druckmasken kön- 
nen frei erstellt werden, der Ausdruck 
von*Kopien ist selbstverständlich. Das 
Programm erlaubt, die Ausgabe der 
Daten im DATEV-Format. Um dem 
Datenschutz Rechnung zu tragen, 
verwehrt ein Paßwort Unbefugten den 
Zugriff auf das Programm. 
Die Daten werden automatisch in LA- 
GER 64 und MAHN 64 übernommen. 
Programm auf Diskette. 
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Brandneu auf dem Markt und mit 
249,- DM empfohlenem Verkaufs- 
preis geradezu sensationell preiswert 
ist der ASCOM Akustik-Koppler für 
den Commodore 64 der Firma DYNA- 
MICS marketing GmbH. Das Gerät ist 
komplett anschlußfertig an den C 64 
und wird mit einem sehr leistungsfähi- 
gen Betriebsprogramm auf Diskette 
geliefert. 

Das Gerät besteht aus einem Steckmo- 
dul und dem Handset. Das Steckmodul 
wird auf den Expansion-Port des C 64 
geschoben und beinhaltet das Interfa- 
ce und den Modulator. Das Handset 
wird mit einem Klettverschluß direkt 
auf dem Telefonhörer befestigt, eine 
ideale Voraussetzung für eine ein- 
wandfreie Übertragung. Es beteht aus 
zwei verstellbaren Auflagemuscheln, 
verschiebbar auf einer Gabel, um auch 
ungewöhnliche Hörerformen aufzu- 
nehmen. 

Der Koppler arbeitet Voll-Duplex, 
wahlweise schaltbar in Originate oder 
Answer Modus. In der Schaltung ist 
eine ACIA 6551, die, über die Soft- 
ware eingestellt, für die Umwandlung 
der Daten beim Senden und Empfan- 
gen sorgt. Die Frequenzaufbereitung 



erfolgt über einen Modulator mit 
nachgeschalteten. Aktiv-Filtern. Über 
Dip-Schalter ist der Adressenbereich 
des Kopplers über weite Bereiche ein- 
stellbar. 

Das Betriebsprogrmm CONTACT 64 
steuert die Datenübertragung des AS- 
COM Akustik-Kopplers. Das Pro- 
gramm bietet folgende Möglichkeiten: 
englische oder deutsche Benutzerfüh- 
rung; Telefonnummernspeicher 
(Deutschland und Großbritannien); 
Parametereinstellung (Datenbits, 
Stopbits, Parietät); Druckersteuerung 
(Protokollmodus}; Upload - Down- 
load; Texteditor. 

In Kürze wird das Hamburger Unter- 
nehmen für weitere Home- und Perso- 
nal-Computer Akustik-Koppler auf 
den Markt -bringen. Mit Geräten der 
Commodore-3000/8000-Serie, dem 
Spectrum, dem Atari 400/800 und den 
XL-Modellen, aber auch mit Compu- 
tergeräten mit einer RS232-Schnitt- 
stelle kann man dann problemlos und 
kostengünstig an der Telekommuni- 
kation teilnehmen, die unverbindliche 
Preisempfehlung für diese ASCOM 
Akustik-Koppler ist 279 - DM. ' 
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Maschine 64 

Das Programm „Maschine 64" ist ein 
leistungsfähiges Entwicklungswerk- 
zeug für den Commodore 64. Einfache 
Bedienung und hohe Leistungsfähig- 
keit erfüllen voll die Ansprüche der 
Einsteiger ebenso wie die der Profis. 
Alle zur Maschinenprogrammierung 
notwendigen Hilfsmittel sind in dem 
Programm vereint. 
Leistungs merkmale : 

- Editor 

Erweiterung des Basic-Editors zur 
einfachen Eingabe und Korrektur 
von Assemblerprogrammen. Der 
Diskettenbetrieb wird durch zusätz- 
liche DOS-Befehle erleichtert. Alle 
Werkzeuge werden über den Editor 
angewählt. 

- Assembler 

Der Assembler übersetzt das mit 
dem Editor erstellte Programm in 
Maschinencode. Er verarbeitet die 
normierte Syntax von MOS -Tech- 
nology Inc., berücksichtigt Labels 
beliebiger Länge, Tabellen mehrerer 
Arten und volle Arithmetik bei der 
Operandenbildung. 

- Reassembler 

Der Reassembler erzeugt aus reinen 
Maschinencode eines vorhandenen 
Programmes ein vollwertiges As- 
semblerprogramm, das sofort mit 
dem Editor bearbeitet, analysiert 
oder mit dem Assembler neu über- 
setzt werden kann. Labels werden 
automatisch erzeugt, Tabellen be- 
rücksichtigt. 

- Maschinensprachemonitor 

Der Maschinensprachemonitor er- 
möglicht das Austesten von assem- 
blierten Programmen auf der Pro- 
ztessorebene. Dazu stehen Hilfsmit- 
tel wie Disassemblerliste, Hex- 
Dump, Speicher- und Registermodi- 
fikation, Break-Pointverarbeitung, 
Speichersuchoperationen, Umrech- 
nungsfunktionen, Diskettenhand- 
ling und Miniassembler zur Verfü- 
gung. 

- Diskettenmonitor 
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Der Diskettenmonitor liest und 
schreibt Sektoren der Diskette, 
stellt sie auf dem Bildschirm dar und 
ermöglicht Änderungen in diesem 
Sektor. Die Änderungs- und Dar- 
stellungsmöglichkeiten entspre- 
chen denen des Maschinensprache- 
monitors. 



Planer 64 

Der „Planer 64" ist ein Tabellenkalku- 
lationsprogramm, das bei gezieltem 
Einsatz Taschenrechner, Bleistift und 
Papier ersetzt. Das Programm kann 
zur Ermittlung von Verkaufsstatisti- 
ken, Betriebskennzahlen und Kosten- 
übersichten, der Lösung von Steuer- 
problemen bis hin zur Haushaltspla- 
nung und Kontoführung eingesetzt 
werden. An beliebigen Stellen des 
Blattes eingegebene Zahlen können 
durch Angabe von Rechenanweisun- 
gen verknüpft werden. Änderungen 
von Einzelwerten führt zu einer Nach- 
berechnung aller eingegebenen Ver- 
knüpfungen. 

- 2600 Eingabepositionen 

- Zahleneingabe und formatierte Dar- 
stellung 

- Texteingabe zur Kommentierung 

- Formeleingabe zur Verknüpfung 
von Positionen 

- Editiermöglichkeiten des Blattes 

- Einfache Cursorsteuerung 

- Automatische Berechnung des Blat- 
tes 

-■■ Einfache Disketten- und Kassetten- 
operationen 

- Selektive Druckausgabe 



Lager 64 

Das Lager Verwaltungsprogramm „La- 
ger 64" bietet alle Vorteile der elektro- 
nischen Datenverarbeitung, die auf 
dem Commodore 64 möglich sind. Das 
Programm ist menügesteuert, bild- 
schirmorientiert und gibt bei Bedarf 
erklärende Texte zu den einzelnen 
Programmpunkten. Bei Einsatz der 
„Faktura 64" werden die Daten über- 
nommen. 

- Bis zu 950 Artikel verwaltbar 

- Such- und Sortierfunktion 

- Druckausgabe 

- 1 oder 2 Diskettenlaufwerke wähl- 
bar 

- Druckeradressen frei einstellbar 

- Passworteingabe für Datenschutz 

- Kompatibel zu „Faktura 64" und 
„Lager 64" 



DATEI 64 



Die Datei 64 ist ein universelles Da- 
tenverwaltungsprogramm mit nahezu 
unbegrenzten Anwendungsmöglich- 
keiten, da der Anwender den Aufbau 
der Datei selbst bestimmen kann. Bei 
der Entwicklung wurde besonderes 
Gewicht auf eine einfache Bedienung 
und hohe Leistungsfähigkeit gelegt. So 
sind alle Funktionen menügesteuert 
und mit ausführlichen Anleitungen 
auf dem Bildschirm versehen. Beson- 
ders bei der vom Anwender zu definie- 
renden Dateistruktur wird deutlich, 
wie einfach und übersichtlich die Be- 
nutzung ist, da ohne Vorkenntnisse 
eine sofort zu benutzende Dateiver- 
waltung erstellt werden kann. Stun- 
denlanges Studium der Bedienungs- 
anweisung und mühseliges Auspro- 



bieren der Arbeitsweise wurden dem 
Anwender bewußt erspart. 
Für einige Anwendungen einer Datei- 
verwaltung sind bereits Masken auf 
der Programmdiskette vorhanden. 

- Daten eingeben, korrigieren, suchen, 
sortieren, drucken 

- Alphanumerische Felder mit beliebi- 
gem Inhalt 

- Numerische Felder für Zahlenwerte 

- Betragsfelder für DM-Werte 

- Fließkommafelder für Meßwerte 

- Datums- und Uhrzeitfelder mit Plau- 
sibilitätskontrolle 

- Sachbezogene Felder für Telefon 
und Kontonummern 

- Merkerfelder für Ja/Nein-Eingaben 
oder drei definierbare Kennungen 

- Ergebnisfelder für Berechnungen in- 
nerhalb eines Datensatzes 

- Bis zu 16 Felder je Datensatz defi- 
nierbar und einiges mehr. 



Buchbesprechung 

Das Maschinensprachebuch 
für Fortgeschrittene zum Commodore 64 



In den letzten Monaten erscheinen 
laufend neue Bücher der Düsseldorfer 
Firma DATA BECKER auf dem Markt. 
Unter diesen befindet sich auch „Das 
Maschinensprachebuch für Fortge- 
schrittene zum Commodore 64", wel- 
ches von Lothar Englisch verfaßt wur- 
de. Das Buch ist praktisch in drei von- 
einander unabhängige Teile aufge- 
spalten. Folgende Bereiche der Pro- 
grammierung des VC 64 in Maschi- 
nensprache werden dabei angespro- 
chen: 

1. Programmierung von Fließkomma- 
funktionen, Fließkommaarithmetik 

2. Möglichkeiten von Interruptquel- 
len und daraus resultierend der In- 
terruptprogrammierung 

3. Programmierung eigener BASIC - 
Erwe iterungen . 

Dem Autor Lothar . Englisch, bereits 
bekannt durch die Arbeit an anderen 
DATA-BECKER-Büchern (Das Ma- 
schinensprachebuch, 64 Tips & Tricks 
und 64 Intern), ist es gelungen, diese 
sehr anspruchsvollen Themen in einer 
einfach durchzuarbeitenden und 
leicht zu verstehenden Weise darzu- 
stellen, so daß auch Programmierer, 
denen das Verständnis der Hardware 
ihres Computers nicht so leicht fällt, 



ihren Nutzen aus diesem Buch ziehen 
können. 

Zu allen drei Themenbereichen finden 
sich zahlreiche Beispielprogramme 
(z. B. schnellere Mathematikroutinen, 
Darstellung von 16 (!) Sprites gleich- 
zeitig auf dem Bildschirm, Program- 
mierung eines REPEAT-UNTIL-Be- 
fehles und viele mehr!). Besonders ge- 
fallen hat mir, daß der Autor bei prak- 
tisch allen Programmen Hinweise zur 
Abänderung' und damit zur Anpas- 
sung an die persönlichen Bedürfnisse 
des Lesers gibt. Neben diesen ausgear- 
beiteten Beispielen sind es aber auch 
gerade die auf weitergehende Pro- 
gramme hinweisenden Tips von Lo- 
thar Englisch, welche das Buch lesens- 
wert machen. 

In einem der letzten Kapitel namens 
„Die Vektoren des Betriebssystemes" 
werden die Ein/ Ausgaber outinen des 
Betriebssystemes beschrieben. Dieses 
Kapitel verdient deshalb besondere 
Erwähnung, weil. alle Routinen mit 
einfachen Worten sehr ausführlich 
beschrieben werden. Insbesondere 
wird die Parameterübergäbe an bzw. 
von diesen Routinen erklärt, ein 
Punkt, welche ich bei der Bespre- 
chung des Maschinensprachebuches 
(64'er 7/84) noch kritisieren mußte. 
Mit den in diesem Buch gegebenen 
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Informationen sollte es nun aber jedem 
Maschinenspracheprogrammierer 
möglich sein, bei der Programmierung 
von Ein/Ausgabeprogrammen die be- 
reits vorhandenen Routinen optimal 
zu nutzen. 



Ein Punkt, welcher an den DATA- 
BECKER-Büchern oft zu recht kriti- 
siert wurde, ist, daß die Werbung für 
andere DATA-BECKER-Produkte in 
ihren Büchern einen zu großen Raum 
einnimmt. Zwar besitzt auch das hier 




Hier eine kurze Befehlsbeschreibung: 



APPEND: 1. Dieser Befehl lädt bereits 
geschriebene Editorfiles. 
2. Befindet sich bereits ein File im 
Speicher, besteht die Möglichkeit, 
Programme aneinander zu hängen. 
SA VE: Es werden geschriebene Files 
gesichert. 

VERIFY: Es wird das Programm, das 
sich im Speicher befindet, mit einem 
auf Diskette befindlichen verglichen. 
ADD; Gestattet die Erstellung von 
Editor listings im 6502-Format. 
COPY: Gestattet das Kopieren von ei- 
nem Bereich in einen anderen. 
Syntax: Es wird 1. und letzte Zeile des 
zu kopierenden Bereichs angegeben. 
Es muß die Zeile angegeben werden, 
hinter der der zu kopierende Block 
stehen soll. 

INSERT: Fügt Zeilen ein. Es muß die 
Zeile angegeben werden, hinter der 
eingefügt werden soll. Es wird solange 
eingefügt, bis einmal RETURN ohne 
Eingabe eingegeben wird. 
EDIT: Editiert das Listing zeilenweise, 
einzeln, oder von ... bis. 
DELETE: Löscht Zeilen. Es kann die 1. 
und letzte Zeile angegeben werden. 
Bei keiner Angabe wird das Listing 
gelöscht. 

LIST: Listet das . Listings vollständig 
oder teilweise. Der Listvorgang kann 
mit ,S' unterbrochen werden, um ihn 
mit ,Q' ganz abzubrechen oder mit ir- 
gendeiner Taste fortzusetzen. 
PRINTER: Listet das Listing auf den 



Drucker. Der Filename wird auf jeder 
Seite gedruckt. Es besteht die Mög- 
lichkeit, die erste Seite festzulegen. 
Wird keine Eingabe gemacht, wird au- 
tomatisch ,0' angenommen. 
QUIT: Verläßt den Editor, aber nur um 
in den Assembler oder den Disassem- 
bler zu kommen. 
M: DISKMENUE' 

-1- LOESCH DATEI: Es werden Da- 
teien gelöscht. Wenn ,f' statt einem 
Namen eingegeben wird, gelangt man 
wieder ins Menü ohne zu Löschen. 
-2- DATEI UMBENENNEN: Filena- 
men lassen sich ändern. 
-3- DATEI KOPIEREN: Files lassen 
sich unter einem anderen Namen noch 
einmal ablegen. 

-4- DISKETTE AUFRÄUMEN: Ist 
gleich dem Validatebefehl. 
-5- NEUE DISK: Formatieren und 
Einrichten einer neuen Diskette. 
-6- ENDE ■ MENUE: Sprung zum 
Hauptmenü. 

-7- DATEI LADEN: Wie APPEND . 
FILE CHANGE: Man kann das aktu- 
elle Gerät (Disk/Cassette) umschalten, 
z. B. falls beide Geräte existieren, Da- 
teien auf Cassette zu sichern. 
Noch einmal zu APPEND. Mit „f" 
kann man zum Menü zurück, ohne ein 
File zu laden. 

Beim Abspeichern auf Diskette wird 
jedem Editorfile eine Kennung für den 
Editor zugewiesen. Dieses dient der 
Übersichtlichkeit beim Lesen des Di- 



besprochene Buch einen „Anhang" 
von 10 Seiten, in welchem die anderen 
DATA-BECKER-Bücher bzw. Soft- 
ware dieser Firma beschrieben wird, 
aber im Text des Buches selber ist 
diese Eigenwerbung nicht mehr so auf- 
dringlich vorhanden. Es wurden zwar 
alle Assemblerlistings mit PROFI- ASS 
angefertigt und abgedruckt, dies ge- 
schieht aber, ohne dauernd die Vorzü- 
ge dieses Programmes zu preisen. 
Zusammenfassend möchte ich sagen, 
daß ich dieses Buch aufgrund der vie- 
len Tips und Tricks und der vielen, 
sehr schön verwertbaren Beispiele 
weiterempfehlen kann. Der gut lesba- 
re Druck und die saubere Verarbei- 
tung sind weitere Pluspunkte, die den 
Preis von 39,- DM wohl rechtfertigen. 
Das Maschinensprachebuch für Fort- 
geschrittene zum Commodore 64, von 
Lothar Englisch, 206 Seiten, 
DATA BECKER GmbH - 1984, 
ISBN 3-89011-022-3. 
Von; Wolfgang Willing, Weidenhäu- 
ser Str. 28, 3550 Marburg. 



rektories. Die Kennung besteht aus 
„E". . 

Zum PRINTER. Dieses Programm ist 
zum Betrieb mit einem VC 1526 ge- 
schrieben worden. Wer keinen 
VC 1526 besitzt, sollte folgende Zeilen 
ändern: 

1310 OPEN4.4.0: Den Rest löschen 
1380 PRINT#4 Den Rest löschen 
1390 FOR I = 1T066-N3:PRINT- 
#4:NEXT:CLOSE4:GOTO280: Einfü- 
gen 

1440 FOR I = 1T06:PRINT#4:NEXT: 
Einfügen 

1420 IFN3<66...: Ändern 
Es brauchen die Befehlswörter nicht 
ganz eingegeben werden, der inverse 
Buchstabe reicht. 

Wenn im ADD-Modus Befehle hinter 
der Zeilennummer stehen und RE- 
TURN gedrückt wird, werden diese 
ausgeführt. 

Wird in einer Zeile kein Label ver- 
wendet, so muß zwischen der Zeilen- 
nummer und der Mnemonik ein Leer- 
zeichen stehen. Dto. zwischen Labels 
und Mnemonik. Labels dürfen eine 
maximale Länge von 8 Zeichen haben. 
Es besteht die Möglichkeit der Kom- 
mentierung. Die Kommentare müssen 
mit einem „;" am Anfang gekennzeich- 
net sein. 

ORG gibt die Startadresse des Assem- 
blerprogramms an. ORG muß vor der 
ersten Assemblerzeile stehen. Die Ein- 
gabe ist in Hex- und Dezimal möglich. 
Hexzahlen werden mit einem vorweg- 
führenden „$" gekennzeichnet. 
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EQU definiert Labels, d. h. Adressen 
werden Namen zugewiesen. Auf La- 
bels, die durch EQU definiert wurden, 
kann addiert oder subtrahiert werden. 
DFB = Dehne Byte ist eine DATA- 
Anweisung für Assembler. Es können 
Zahlen oder Texte eingegeben wer- 
den. Sie müssen durch „," getrennt 
werden. Texte müssen in „'" einge- 
schlossen sein. DFB muß auch einen 
Namen als Label haben. 
Weiterhin kann bei den Lade- und 
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Vergleichsbefehlen, bei- denen eine 
Konstante verwendet wird, auch ein 
ASCII-Zeichen, in „'" eingeschlossen, 
eingegeben werden, z. B. LDA #'A' 
oderCMP #','. 

Dann gibt es noch die Möglichkeit der 
Adreßtrennung in Low- und Highbyte. 
„<" gibt das Highbyte an und „>" das 
Lowbyte. 

Eine Befehlsfolge als Beispiel; 
1 ORG $0000; Startadresse 
2TEST EQU $FFD2; Testadresse 



3; ••••••••••••••* 

4 LDA #<TEST; Lade Highbyte 

5 LDY #>TEST; Lade Lowbyte 

6 STY $BA 

7 STA $BB 

8 NAME DFB $0D,$93,'DIES IST 
EIN TEST\$0D,$0D 

9 LDA #'A' 
10 JSR'TEST 

Dieses kleine Beispielprogramm zeigt 
wohl am besten die Möglichkeiten des 
Editors. 
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70 P0KE45,£4!P0KE46,4©:CLR 

80 CLR ! D IMA$( 1000 ) ! POKE53280 ,7 s P0KE53281 ,7 

30 P0KE8£8 ,PEEK C55 > S P0KES23 ,PEEK < 58 ) i F I =PEEK C 1 86 > 



1 10 
£00 
SIS 
2S0 
£30 
£40 
£50 
£60 
£80 
£90 



L*= » ■ : FOR I = 1T05S L*=LEFT*<L*+L*,£ l > SNEXTs L*=L*+ "D" 
PRINT"iJ"SPCC 1 1 > "a****#* EDITOR #****HT 



CA3C-3CEJ 
CA3 

[ft3C-][E] 
CA3C-3CEJ 



mifspd 

jAsLHBJIT 
a&-»IST 



CA3C-3EE3" 

ER3C-3 CE3" 
LAU-3CE3" 



393SBLIIT ->ASS +DISASS" 
aSFHRILE CHANGE" 



NEU aSLAHEJEN" 

LA "THENPR INT "EXT s GOT04 10 



PR I NT " Slia=iP WPEND 
PR I NT H SliaiN' HER I F Y 

pr i nt •■ masi sbmsert 
pr iNT"auasPB^;LETE 
pr i nt " auagp m& i nter 

PRINT'*||agMH8 DISKMENUE 

IFB=10RB=5GRB=1£THENA*="L" :GOTO300 

I NPUT " BTOEFEHL *' ; A* 
330 PRINTs RESTORE ;F0RB=1T01£:READBSS IFLEFT*<A$,LEN<;B*> ) <>B*THENNEXT 
310 IFB< >£ANDB< 1 1THENGOSUB5000 
3£0 IFB=10ANDFIO8THENPRINT"C±rn" :GOTO£80 

330 ONBGOTO400, 600, 500 ,-700,800, 1000, 1E00, 900, 1300,3000,3500, 1 100, 540, £00 
400 REM *APPEND* 

405 IFLA=0THENLA=l:GOTO419 

410 PR INT" «DATEI äEBIHRNDEN ODER 

411 INPUTG1*: IFG1*<>"BI "ANDG1*<> 
41£ IFG1*="BI"THEN419 
413 IFG1*="LA"THEN800 
419 GOTO6000 
4E0 INPUT#1,A* 

430 I FNE <NTHENFORC=NTON£+i STEP -1 i 

440 N£-NE+l!N=N+l!fl*CN£)5:ft*: IFST=66ANDF I =8THENGGSUB2500 

445 IF*r64ANDST>=0THEN4£0 

450 CLOSE 1 s GOTO280 

500 REM «SfiVE* 

501 IFFI=8ANDGP=0THENOPEN£,8,15JOP=1 

505 INPUT"FILENAME";F*s IFFI«STHENF*="E *+F*+",S,W" 
510 OPENl,FI,l ,F$SSA-1:GOSUBE500SSA=0: IFEN< >0ANDF I =8THEN5300 
5£Ö F0RC=N1T0N£SPRINT81,CHR*<34>A*<C> sNEXTsCLOSEl 

540 CLOSES:OP=0SPRINT"iaa ASSEMBLER EINLADEN 7" : WAIT188,3s6ETG* 
550 IFG*-" J "THENLQAD "ASSEMBLER " ,F I 
555 PR INT M CD IS ASSEMBLER" s WA IT138 ,3 :6ETGS 
5S0 IFG*s »« j »THENLOAD "D IS ASSEMBLER " ,F I 
565 GOTO£00 
800 REM *** ADD *** 
610 LA=lsC=NSPRINT u iJ" 
6£0 GOSUB4000S IFBFTHEN300 
630 PRINTL*:GOSUB4500 



A*<C+1 >=A$<C> :NEXT 
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640 A*CC)=A*sN=CSGOTO6£0 

700 REM *LIST* 

710 PRINT"J" sFORC=N1TON£:A*=A*<C>:GOSUB4500 

720 GETG*! IFG$="S"THENWAIT198,lsGETG* 

730 IFG*="Q"THEN28B 

740 NEXTSG0T028Q 

803 REM *DELETE* 

810 D=NS~Nl + ls IFD>10THENPRINT'*aa ARE YOU SURE ? SS" ' Wft IT198 ,7 i GETG*s IFG*= "N"THEN 

830 

823 N=N-D 

830 FORC=NlTQNSft*CC)=A*<C+D) : NEXT 

335 N£=N:NI=N 

840 IFGl*=' , Lft ,, THENGl*= , " , S6GT0413 

850 LA=Q:GOTO£80 

900 REM »VERIFY* 

910 VE=1!GGTO6000 

3£0 FRINT"tf" i VE -0: FORCEN 1 TONES INPUTtti ,<=t* 

930 IF<A*<>ft*<C>)0RC64RNDST)ftND<C<N£>THENPRINT" i aa 7VERIFY ERROR IN" f CS "__" SER= 1 

340 NEXTiCLOSEl : IFER=0THENPRINT"** VERIFY OK **" 

350 ER=0:GOTO2S© 

1000 REM «ED IT* 

1010 F0RC=N1T0N£ « PRlNy marm » : S=PEEK <£ 14 > : ft* = A* <C > ."GOSUB4500 

1015 PRINT"a"; * IFPEEK<214>>STHEN1015 

10S0 A3?= " " S SYS4£336 

1 030 FOR I =5 15TO600 s IFPEEK < I >THENft*=A$+CHR*<PEEK t 1 > > = NEXT 

1040 GOSUB4100: IFBFTHEN300 

1050 A*^C)«fl$SNEXTCSGOTO£80 

1100 REM *COPY* 

1110 INPUT n COPY-BEREICH ,, ;ft$ 

11£0 GOSUB5Q00! INPUT" WOHIN C2E ILENNUMMER ? " ? C 

1130 IFONTHENC«N 

1140 D=N£-N1+1 

1150 IFC<NTHENFORI=NTOC+iSTEP-l:ft*CI+0)=A*CI>sNEXT 

1160 N=N+D: IFN1>CTHENN1-N1+D 

1 170 FOR I =C+ 1TOC +D s ft*< I ) =ft*<Nl > : IFN1 =CTHENN1 =N1 +D 

1 180 N1=N1+1SNEXT 

1190 GOTO280 

1£00 REM *INSERT* 

1210 C=N1 

12£0 GOSUB4000: IFBFTHEN300 

1230 PRINTL*:GOSUB4500 

1248 FORI^NTOCSTEP~i:ft*(I + l)s:FI*<nsNEXTsN=N+lSfl$CC>='fi* 

1250 GOTO 1220 

1300 REM ***# PRINTER ****. 

1305 INPUT , *FILENAME ,, ;F*:N3=0 

130S INPUT M PflGE-ANFflNG"5PG 

1310 OPEN4,4,0sOPEN3,4,3JPRlNT#3,CHR*C66){pRINT#4,CHR*a47>CHR*<141>; 

1320 GOSUB1450 

1330 FORC-NlTON2:ft$=fl3KC> 

1340 PRINT#4,RIGHT*C" "+STR*(C> ,3 > ; 

1350 F0RI=1T07: IFMID*CA*, 1,1) = "; »THENI =7:PRINT#4,fi*sNEXTI !GOSUB1400:6OTO1370 

1355 I*«MID*<:A$,I,l>:PRINTtt4,I*; i IFI*<>" "THENNEXTI 5 1 = 1-1. 

13G0 PRINT#4,CHR*<16>" 15 "MIDSCfl*, I + 1 > " " :GOSUB1400 

1370 NEXTC 

1 380 PR INT#4 J PR I NT*»4 , CHR*C 19 ) CHR*C 141): CL0SE4 : CL0SE3 : GOTO280 

1400 N3*N3+ls IFLEN<MID*<A*,I + l>) + 15>80THENN3-N3 + <INT<LEN«;MID*<ft*,I + l)))/80) 

14£0 IFN3<84THENRETURN 

1430 N3=0!PG-P6+1 

1450 PR INTtt4 ,CHR*< 14 5CHRSC 16 ) " 13" * F*; CHRSC 15 ) : PR INT*t4 >CHR*C 16 > "68PAGE " ; P6S RETURN 
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1700 REM ***** DIREKTORY ***** 

1781 PRINT"UKaa VORHANDENE DATEIEN K" 

1702 PRINT"SIE KOENNEN ALLE DATEIEN ODER NUR GRUP- PEN AUSGEBEN LASSEN." 

1703 PR INT "ALLE GATEIENs g'RETURN-TASTE 'R DRUECKEN 

1704 PR INT "GRUPPEN VON DATEIEN i 32. B. 1. BUCHSTABEN + *«" 

1705 PRINT"MpIES GILT AUCH ZUM LOESCHEN VON DATEIEN" 

1706 IFÖP=0THENÜPEN2,3,15SOPM 

1710 INPUT-Iffiäl NAME DER DATEI ODER RETURN HB IftnUWI" i F*s IFF$= "^"THENF$= "* " 

1711 Z2=i!OPENl,S,0 / "*0:E "+F* 
1715 GET81 ,T1$: IFSTO0THEN1780 
17£0 IFTl*OCHR*<34>THEN1715 
1725 T*=" ■ :FORTTslTO£!GET#l,Tl*sT*=T*+Tl*:NEXT 

1727 IFTSKVE "THEN1715 

1728 T*=" " 

1739 GETttl ,Tl*s IFTl*OCHR*<34)THENPRINTTl*; ST*=T*+T1*: GOTO 1730 

1740 GETttl ,TI*: IFST=64THEN1760 
1745 IF INT CZZ/-£>*£*ZZTHENPR INT« GOTO 1753 
174G PRINTSPC<£2-LEN<T*5> 
1750 ZZ=ZZ+i: IFZZ«10THENPOKE 138,0 SPRINTSPCC7 )"äWEITER J/NR" 

1752 IFZZMÖTHENGETJ*: IFJ*<>"J"ANDJ*<> "N U THEN1752 

1753 IFJ*=°J n THENZZ=l:G0T0l7l5 

1754 IFJ$="N"THENGOTQ1760 

1755 IFST=0THEN1715 

1760 CLOSE1 SPRINT: I FNU > 1ANDNU<STHENRETURN 
1780 IFNU=1THENPRINTSPC<5)"H3***** DATEI LOESCHEN *****■" 

i7S5 pRiNT"aaa t = zum menue m u 

1790 INPUT"Ha NAME DER DATEI Hl EWU" JFS* IFF*= ,, T , THENPRINT"d]" :GOTQ1790 

1792 IFF*= ,, t ,, THENRETURN 

1794 IFLEN CF*>>1£THENG0SUB28 10 :PRINT"CP": GOTO 1790 

1736 IFNU=1THENGOSUB2230 

1798 RETURN 

1900 REM **** DATEN LOESCHEN **** 

1310 GOSUB 1 700 s I FF3>= " t " THENRETURN 

1915 IFJ*= n N" THENRETURN 

1320 GPEN1 ,8,15,"SiE "+F*:GOSUB2508:CLOSE1 : RETURN 

£000 REM **** DATEI UMBENENNEN **** 

2005 PR INT »U"* GOSUB 1700 

2010 PRINTSPC<5) "-gm****** DATEI UMBENENNEN ******■" 

£015 INPUT"H=MEUER DATE INAMEB" ; NT$: IFLEMNT*? >1£TH£NGQ3UB£8 Iß: PR INT "003" « GOTO20 1 

5 

£020 INPUT-StfLTER DATE I NAME "; AT* 

£030 0PEN1 ,8,15,"R:E " +NT*+" =E " +AT*: GOSUB2500:CLOSE 1 

£040 RETURN 

£130 REM **** DATEI COPIEREN **** 

£110 PRINT"iJ"s GOSUB 1700 

£120 PRINTSPCtSV'HK****** DATEI COPIEREN ******R" 

2125 INPUT" STEUER DATE I NAME R"; NT*: IFLEN<NT*> >1£THENGOSUB£S10 :PRINT"aX3" «GOTO20 1 

5 

£130 rNPUT"BPLTER DATE I NAME " ; AT* 

2140 0PEN1,8,15,"CSE "*HT*+"=E "+AT*: GÖSUB£500:CLOSE 1 

2 150 RETURN 

2200 REM **** WIRKL ICH? **** 

£210 PRINT"gL . ■" 

2220 PRINT"33S0LL DIES WIRKLICH GESCHEHEN J/N ?HB" 

2230 GETJ*: IFJ*<>"J ,, ANDJ*<> ,, N"THEN££30 

2240 IFJ*='*N" THENRETURN 

£250 PR INT "123*1 I R K L I C H ?????" 

£260 GETJ*: IFJ*<>" J"ANDJ*<> ,, N ,, THEN2260 
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£770 
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£310 
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RETURN 

REM **** VALIOATE DISK **** 

PRIWT"iJäHi **** AUFRAEUMEN DER DISKETTE ****B" 

PR I NT " H3 \ " ; 

PRINT "3^3 WERDEN ALLE NICHT BESCHLOSSENEN DATEIEN GELOESCHT"; 

PRINT-a HS" 

6OSÜB££00: IFJ*="N"THENRETURN 

OPEN I , 8 , 1 5 , " V " i 6GSUBE500 '• CLOSE 1 i RETURN 

REM ***** DISK FEHLERMELDUNG ***** 

IFFI=1THENRETURN 

INPUTtt£,EN,EM*,ET,ES 

I FEN~ >0ANDSA - 1 THEN2550 

PRINTSPC(5)"HH***** DISK FEHLERMELDUNG *****Ea" 

PRINT"ja"iENJ! "3"; EM«; "■B M ;ET;ES:POKE1SS,0SPRINTSPC<£0>"DRUECKE TASTE " :Wfl IT198 

RETURN 

REM **** DISK FORMATIEREN **** 

PRINT"LiaS **#* DISK FORMATIEREN ****" 

INPUT"ffiTC:UE DISK EINGELEGT J/N" / J*s IFJ*< > " J "AND J*<> "N"THENPR INT"CIX «G0T027 

IFJ*="J B THEN£740 

INPUT"a/JEITER/ABBRUCH W/A " ; J* 

IFJ*<> ,l W'WJDJ*<> ,, A ,, THENPRINT ,, CD ,, sGOTO£730 

IF J*= " WTHEN27 10 

RETURN 

INPUT"MfiNAME DER DISKETTE" ,' NA* 

I FLEN f NA* ) > 16THENG0SÜB£8 1 : PR I NT " OUT* s GOTO2740 

INPUT" KENNUNG DER DISK <£ STELL IG >" i NR* 

I FLEN < NR* )>£ THE NPR INT "NENNUNG ZU LANGMÜTT ' 6GTO2760 

0PEN1 ,8 , 15 f "N! " +NA*+ "■, " +NR*: GOSUB2500 SCLOSE 1 l RETURN 

REM **** FEHLERLISTE **** 

PR I NT " 3 " : PR I NT " a^AME Z U LANG ! «" : R ETURN 

NU=0:PRINT H i^aa DISK MENUE 

PRINT 

PRINT 

PRINT 
PRINT 



msmmm- 

'^■1-3- 
'^«~4- 



PRINT"HttI-5- 
PRINT n aUU-6- 

PRINT"a«I-7- 



1- LOESCH DATEI" 

DATEI UMBENENNEN" 

DATEI COPIEREN" 

DISKETTE AUFRAEUMEN" 

NEUE DISK" 

ENDE MENUE" 

DATEI LADEN" 
IFOP=:0THENOPEN£,3,15:OP=1 
SETNU*« IFVALCNU*)=0THEN3060 
NU=VAL<NU*>! IFNU=0ORNU>7THEN3060 
I FNU =6 THE NNU = * 60 TO £ 
IFNU=7THENB= 1 :GOTO330 

ONNUGOSUB 1300 ,£000 ,2 100 ,2300 ,2700 
GOTO3Q00 

REM *** FILE CHANGE *** 
PRINT»0D«ISK/a^S £ lSSETTE" 
GETG*: IFG*= "D "THENF I =8 s GOTO3540 
F I = 1 : I FG*<> " C " THEN35E0 
GOTO200 

A*=" " : 1=1 :C=C+UC*=RIGHT*< " "+3TR*CC> ,3) 
PRINT-SaEtE" 
S=PEEK<£14> :PRINTC*LEFT*<A*, I-i ) "a"LEFT*CMID*( A*, I , 1) +* 

IFPEEKC£14>>STHENPRINT"0"; J6OTO4015 
WAIT198,15sGETG*s J-ASCCG*) 
IFJ-23THEN40S0 



» ,1) ,, B"MID*CA*,I + 13 
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4040 IFJ=T57THENI-I + <:i >i):GQTG4010 

4950 IFJ=143THENA**LEFT*<A*,I-i:> + " " +MID*<A$, I ) :GGTO4010 

4080 IFJ-20THENA$=LEFT*<A*, I - 1 + C I > 1 ) ) +MIO*< A*, I):I = I + CI>1J: 6OTO40 10 

4970 IFJ=13THEN4100 

4080 A*=LEFT*CA*, 1-1 ) +G*+MID*<A$, I + 1) 

4090 1=1+1+ C I >LEN<A*>> :GOTG4010 

4100 FORI=lTGLEN<A$>s IFMID*<A* r I , i > <>" "THENNEKTsBF^l s RETURN 

4110 IFMID$CA$, 1 + 1,1) = " M THENft*=LEFT*<A*,I)+MID$<A$,I+S)sGOTO4il0 

41£0 BF =0« RETURN 

4500 PRINTRIGHTSC" " +STR*<C ) ,3 > ; IA J*= H " 

4510 F0RI=1T08S IFM1D*< A*, 1 , 1 )=" ! "THENI «3 :PRINTA$: RETURN 

4515 I*=MID*(A*,I , DSPRINTI*; 5 IFI*<>" "THENA I*» I*+A 1*5 NEXTS 1=1-1 

45S0 PRINTSPCClO-LEN^ISOJMIDSfflS^I + lV* " 

4525 IFMID*CAS,LEN<AI30 +2,3 ) = 1 *ORG ,, THENGOSUB5200i RETURN 

5000 G=0^FORI = lTQ^:J=ftSC<:MIO*<A*,I,l) + ,, ^l i, >: IFJ«45THEND=1 

5010 IFJ<48QRJ>57THENNEXT 

5028 NI=VAL<MID$<A$,n ) 

5030 N2=VAL<MID*<A*,I+LEN<STR3KN1) ) >) 

5040 IFN1=0THENN1 = 1ANBBO7:N2=N 

5050 IFDTHENN2*N15N1=1 

5060 IFRIGHT*<;A*, 1 ? = " - "THENN2=N 

5070 IFNS<N1THENN2=N1 

5080 IFN2>NTHENN2-N 

5030 IFNi >NTHENN1=N 

5100 RETURN 

5130 REM *** SPEICHERPLATZ BEGRENZUNG *** 

5131 REM ** FUER ASSEMBLER BERECHNEN: ** 
5192 REM * LB=<82S>=C55?:HB=<8£3>=<56) * 
5200 IFMED$<A*,LEN<AI*>+6, 1 > ="S"THEN5£60 
5210 Z=VAL<MID*<A*,LEN<AISO+6,6)> 

5220 HB=INTCZ/258 3SLB=Z-HB*256 

5H3S IFHB<=PEEK<82S>THENPGKE823,HB:PGKE828 / LB 

5240 IFLBOPEEK<8£8)THENP0KE823,LB 

5250 RETURN 

526Ö Z*=MID*CA*,LEN<AI$)+7,4> :Z=0 

5270 FORI=0TO3:Z1=<ASC<MID*<Z*, 1+1,1 > ) -48) *16t <3- I) 

5230 IFASC<MIO*<Z*,I+l,l))>57THENZl=<ASC(MID*<Z*,I+l, 1 > > -55 > *16t C3-I > 

5230 Z=Z+Z1SNEXT!GOTO5£20 

5300 REM *** FILE EXISTS *** 

5310 CL0SE1 

5320 PRINT"SII» r ILE UEBER3CHRE IBEN (J/NJSS" 

5330 GETG*: IFG$=" J"THENF*= "ffi: "+F*SGOTO510 

5340 IFG*O"N"THEN5330 

5350 PRINT M affiFILE NICHT GESPEICHERT»' 

5360 GOTO280 

6000 IFFI=8THEN6050 

6002 INPUT"FILENAME ,, *F* 

6605 PRINTSPC<5VCASSETTE ZURUECKSPULEN" 

6010 PRINT"BIS ZUM ANFANG DES ASSEMBLERFILES I" - 

60£0 PRINT M aDANN 2 P ■ DRUECKEN!" 

6030 WAIT198, UGETG*: IFG$O"P"THEN6030 

6040 PRINT-OK" S0PEN1 ,1 ,0,F*s IFVE=1THEN9£0 

6045 GGTO420 

6050 GOSUB1700 5 IFF*= " t "THENB-0 : GOTO200 

6100 GPEN1,8,2, H E " +F*+ " ,S ,R" s IFVE= 1THEN320 

6110 GOTO420 

10000 DATAAP,A,S,L,D,E,I,V,P,M,F,C,Q 

READY. 
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nl*9 
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Sc-*** 



föEM»»*i»»S a ?985!i??*SSS!»??S 

1 BEfital ebWEBßiBCK c 

3 fiEM~CÖeifiiQHT BV 

4 ßEM UINKLEB GBBßlEL 

i 00 FQßT*0TD13 i BEfiDB ! F0fiS»aT07 • REfiDB = 
P0KE7168+S+fi*8i B = NEXTS, T 
110 MTa32..,,,,., 
120 DfWHS. 24, 24, 24, 24, 24, 24, 24. 24 
130 MT846..j.255,255,,, 
140 B8.T847, 24, 24, SO'* 255. 255, 60. 24. 24 
150 B8T848. 251. 251, 251,, 223, 223, 223, 
160 U8Tß49,.,,36,24,24,36, 
ITA DRTfl5BiS6iS8j 186. 162. 186. 162. 186. 198 
180 B8T8S1, 66, 52. 110. 101. 138. 123.210. 153 
190 B8T852,66.60. 126,219.255.255.219.153 
200 MT853. 60, 70, 219, 219. 199.215.90,60 
210 B8T854, 60. 66. 223. 199. 223. S£ t 126. 60 
220 SBTB53 * 68. 70. 219. 219. 199. 223. 94. 60 
230 D8.T856 . 60. 90. 219. 219. 219. 219. 66. 60 
240 B8T8S7. 60. 70. 223. 199. 247. 247. 70. 60 
250 BBT8S8. 126,219,213.255.255, 126,90^90 
260 Bfi.T859.24.26. 126.88.24.60.36.102 
580 PQKE3S8.7S.14JPDKE36878.15 - 
510 PS INT. "IT ; TßB£.7 i.V SäPDWERPßCK." 

528 mim "'mmmüifLBTiEH sie jetzt bitte 

538 PÜKElSS.ßiWHITlSS.l 



Oie sind in das Labyrinth des gefährlichen 
Energiemonsters Enzigo eingedrungen, um es 
zu beseitigen. 

Enzigo bekommt genügend Energie aus den im 
Labyrinth verstreuten rot gekennzeichneten 
Energiezellen. Solange der Vorrat reicht und 
Energiezellen vorhanden sind, ist Enzigo un- 
verwundbar. 

Ihre Aufgabe ist es, Enzigos Energiezellen zu 
beseitigen, um ihn zu vernichten. Aber aufpas- 
sen - fünf Totenköpfe sind im Labyrinth ver- 
streut. Diese dürfen nicht berührt werden. 
Zwei Gespenster durchkämmen das Labyrinth 
nach Eindringlingen. Enzigo ist in der Lage, 
seine Gespenster auf jeden beliebigen Ort sei- 
nes Labyrinthes einzusetzen. Also, abwarten 
wo seine Gesellen eingesetzt werden und über- 
raschend auftauchen. Ist dies geschehen, ver- 
suchen Sie geschickt auszuweichen. Manch- 
mal kommt es vor, daß Sie zwischen Gespenst 
und Hindernis eingekeilt werden. Dann gibt es 
nur eine Rettung: die F7-Taste. Sie bewirkt, 
daß Sie auf Ihre anfängliche Startposition zu- 
rückversetzt werden. Leider hat die Sache ei- 
nen Haken. Sie können diese Chance nur ein- 
mal pro Spiel verwenden. Es sei denn - Sie 
schaffen es, die im Labyrinth verteilten Buch- 
staben S u p e r in der richtigen Reihenfolge zu 
vertilgen. In diesem Falle hätten Sie die Mög- 
lichkeit, ein zweites Mal von der F7-Taste Ge- 
brauch zu machen. 

Wenn es Ihnen gelungen ist, alle Energiezellen 
zu beseitigen, müssen Sie nur noch das Mon- 
ster Enzigo vernichten. Steuerung: >W< 
oben, >Space< unten, >A< links, >D< 
rechts. 



URS HflUPTPROORflMM" 



Hauptprogramm 

108 Ms3:GQTö?540:BaTR,2.6.10. 11.15,19,28.32,33.35,37,39.41.42,43,44,45.46,48.50. 

52.54 

110 BÖ.TÖ55. 57. 61. 70. ?.'4. 76. 77. 79. 83. 87. 88. 92.96. 98.99. 101.118.128.121.123.125.127 

.128 

128 DATA 1 29 j 130. 131. 132. 133. 134. 135. 136. 138. 140. 142. 143. 145. 162. 164. 165. 167. 168. 

169.173 

130 BATfil74. 175. 176. 177. 178. 182. 183. 184. 186. 187.208.209.218.211.212.213.214.215. 

216.217 

140 B8Tfi21S. 219, 220. 221, 222. 223. 224. 225, 226,227. 223. 229, 230.. 9. 86. 90,95, 99, 172,1 

76, 185 

150 B8T81S9. 262. 266. 271 . 275. 352. 361 .. 88, 352, 54, 318 • P0KE36869. 255 

400 FORT-0TO98 • REflDfl • PÜKE38674-8, 4 : P0KE38675+ fl. 4 J P0KE7954-fl, 48 : PGKE7955tfl. 48 < NEX 

T 
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4 1 F0RT-7747T0Ö 163=1 FPEEK C T > »32THENPGKET+30720 , 2 : PGKET , 49 

420 HEXT : FGRT»0TÜi5 : RERBR = R*R+7774 : B»R+30720 : C»46 : B*l : E*22 * IFRND< 1 ». 5THEN043 : D 

430 PÜKER+E, 32 ; PGKER-E, 32 : PDKEB, 6 : POKER. 47 ; PGKEB+B, 3 ' PGKEB-B, 3 : POKEfi+B, C : PGKER-B 

, C : NEXT 

S00 FflE!>iTü5; REBUS 

5 1 BpR* 1 NT £ BNL C i ) * 1 1) ; Csflt I HT < RNB < 1) * 1 1 ) : B*B+774S : C*C+7748 

520 I FPEEK C B > O490RPEEK < C > O430BB-CTHENS 1 

530 PÜKEB+30728, 1 : POKEC+30720 j 7 : PÜKEB,58= PQKEC,58~T:PGKE77i8+T, 38-T = NEXT 

S40 M»PEEK<7SS0) :SC»PEEK<7S4S)*25fi+PEEK<7fi49> :C*172:H*1 JQO3UB8000 

£00 FQRQ»1T02; i FT £Q)THENONTCfl)QOTD5000i 5018,5020 ,5040 

610 IFRNB<l)<SPTHENT<Q>"t 

620 P*PEEK<VCfl3+IKQ)>-44: IFP{0THEN670 

630 ÜNPGÜTÜ640, 640, 640, 640. 670, 670, 640, 640, 670, 67® j 6?®,6?®,6?&* &?&> 8000 

640 Pol:lFflBS(D<Q)>«»iTHENP«22 

650 B<Q)»P#8GN<X-VCQ)> :P-PEEK<V<Q)+B<Q» : IFP>32flNDP<49THENB<Q>— B<Q> 

660 GGTG690 

670 PÜKEVCQ) +30720, FCCO = POKEYCQ) , E<Q> : VCflJaVCQJ+BCO) : E<Q)*P+44 : F<Q)»PEEK< V<Q)+30 

720) 

690 POKEVCQ) +30720, 1 :pÜKEVCQ),Z(Q) = SP»SP+1.5E-04- IFSP>.05THENSP».0S 

1000 P«PEEK<i37) : IFP*i7THENfl»-i i GOTO 1060 

1010 i FPs 1 8THEN8« 1 '• GOTO 1 060 

1020 IFP*9THENfl«-22:GQTÜ106B 

1030 IFP*32THENfl"22;GQTD1060 

1040 IFHflNBP*63THENH*H-l = GOSUB1600 

1050 GOTO 1090 

1060 POKEXi 32 = Xrittfl ? E«PEEK<X)-44 : IFP<0THENPÜKE36875, 200 « PÖKE3S873, • ÖQTO1030 

1070 ÜHPGDSUB4Ö00,3000, 1100, 1100, 1110,7500, 1400, 1400, 1300, 1300, 1300. 1300, 1300, 12 

00 

1090 POKEX+30720J 7 : PÜKEX, 53 ' NEXT = GÜTO600 

1 1 00 PÖKE36876 , 200 = X»X-fl I PQKE36876 , : RETURN 

1 110 P0KE36874, 15ß: C?»C-1 :S0b8C+I :PÜKE36S74,0: IFCTHEN1230 

1 120 FQRT»130TÜ250 = P0KE36874 , T • PÜKE36874 j J NEXT : SC*SC+250 J F*l ' PÜTÜ1230 

1 200 FUßT« 1 28TÜ250 ? P0KE36B76 , T ■ PQKE36876 , : NEXT : M-M- 1 

1220 PüKEXj32':X«ai43:PRiNT."« 1 = FORT* 1TGM =PR INT "i II" i ; NEXT^ 1FM»0THEN1500 

i 230 PR I NT " äNEM." TRB < 5 } .'.' SCOfiE = " SC : RETLJRN 

1300 FOST«0TOe ; P0KE36S77j 130+T*20:HEXT'-PGKE36877,0 

1310 IFP«=i 3-STHENS«S*l : PGKE38452-P , 7 ? IFS*5THENSC*8C+225 : H=H+1 

1320 SC»SC+5?GOTÜ'1230 

1400 X"X-ß ; GÜTÜ8000 

1500 PRlHT u m immmmfflim&"T8Bi6) tt (jmE GVER}" :PGKEi98,0;WfilT19S,l;RUH 

1600 FQRT-250TÜ130STEP-i : PÜKE36875, T : PGKE36875, : NEXT = GÜTO1220 

3000 E*43?T*-2:D«*21 :B«»-23: IFPEEKCX+1)"47THENT"2:D*-21 JB-23 

3010 GOTÜ4100 

4000 £«46 i .T*44 ? B~21 : B»23 • I FPEEK <X-22?*47THENT*-44 = B«-21 : B»-23 

4100 PDKE36876, 128= IFPEEK<X+B»32QRPEEK<X+B»32THEN1100 

4110 PÜKEX+T, 32 : FÜKEX+B+30720, 3 : PDKEX+B+30720* 3 : PGKEX+D, E • PGKEX+B, E = P0KE36876, : 

RETURN 

5000 P0KE38696 , 7 ; Z i G ') «5 1 : T < Q >*2 ; GGTO690 

5010 PÜKE3fi07?jl3BiPOKE¥<D>+3ß720iF<a>:POKEV<fl>^E<Q>iT<Q)»3:POKE36B77i0:GOTOie90 

5020 V C ö ) wX-Si*R+R* 1 NT ( RNB £1 ) * 1 1 ) ; P*PEEK i V < Q ) > '• l FT>2THEN5090 

5025 1 FPO32SNBPO490RV < Q X774SÜRV < Q »8 1 6 1 THENT«T+ 1 ; GOTO5020 

5030 E£Q>"P?F(Q3-PEEKCV<Q3+30720i :ZCfl>"31 ;P-flBS(fl) :T<GD*4:ßQTG650 

5040 PÜKE36S74, 130 • 2£GU»32 = T<Q)«0 : P0KE38696, 6 • P0KE36874* J GGTG630 

S090 T=0;iFR«iTHENß«22:GGTÜ5020 

S09S R«lJÖÜTDS020 

7500 XFFM0THEN14B0 

7510 FÜRT-130TO2S0SIEP. 2 i PDKE36875, T : PGKE36875, = NEXT ' 8C*SCtS00 : FORT-0TO3000 s NEX 

T 

7540 T«INT»;SC/2S6) :P0KE7648, T;PGKE7649,SC-T*256'POKE7650,n+l :PRINT"^I" : RUN 190 

8000 PÜKE3Sfi9fi*fi;POKE797fii50;FORT«lTO2:POKEVa)+30720iF<T)?PÜKEV(T)jEa):V<T)*79 

76 

8010 2<T)«S2 • FfiTiHfi I E<T>M • NEXT ? GOSUB1200 : GOTQ608 
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Besteht aus zwei Teilen: 

Für VC-20 ohne Erweiterung 



Der erste Teil wird normal einge- 
tippt und abgespeichert. Danach 
kann der zweite Teil eingegeben 
werden. 



Nachdem der zweite Teil abgetippt 
und abgespeichert ist, starten Sie das 
Hauptprogramm ganz normal mit 
„RUN". Es baut sich jetzt ein Zufalls- 
wald auf. Pilze sowie Bäume werden 
mit dem Zufallsgenerator auf dem 
Bildschirm geprintet. 
Ein Monster, das ebenfalls mit dem 
Zufallsgenerator betrieben wird, soll 
Ihnen das Leben schwerer machen. 
Falls Sie den Wald verlassen wollen, 
müssen Sie zum „HELP". 
Gesteuert wird mit den Tasten! > W< 
hoch, >X< runter, >D< rechts und 
>A< links oder mit Joystick! 
Mit GOTO 1 erfolgt der Kaltstart des 
Programmes. Es darf nicht mit 
ÜIRUNIÜ gestartet werden, da dann die 
Variablen „hsc" und „zS" gelöscht 
werden. Aus der Zeile 10 erfolgt ein 
Sprung zum Aufbau der UDG und zu 
den Erklärungen. 

Display 

Das Bild wird mit selbstdef . Grafikzei- 
chen aufgebaut. 

Tastat urabfrage 

Sie erfolgt über INKEYS. Die Ver- 
zweigung zur Steuerung des Männ- 
chens wurde mit BOOL sehen Funktio- 
nen erreicht. Diese Methode erschien 
schnell genug. Nach Rücksprung aus 
den Subroutinen werden eventuell er- 
reichte Punkte errechnet. Die Punkte 
für die Schlüssel werden über eine 
ATTR- Abfrage gefunden - ATTR = 51 
entspricht einem Schlüssel. 
Die unsichtbaren Hausnummern (PA- 
PER-Farbe = INK-Farbe) werden 
durch SCREENS abgefragt. 
Nach Finden aller Schlüssel erfolgt ein 
Sprung zur Routine in Zeile 3000. Hier 
wird das Männchen automat. zu sei- 
nem Raumschiff geführt. Es startet und 
fliegt aus dem Bildschirm. Dann erfolgt 



der Aufbau des nächsten Bildschir- 
mes. 5 solcher Displays müssen 
durchlaufen werden, um die Bonus- 
runde zu erreichen, 

Steuerung 

Die Bewegung des Männchens erfolgt 
in zwei Stufen: 

bei li/re 1 Zeile hoch u. 2 Spalten vor 
bzw. zurück, dann wieder 1 Zeile tief 
u. 2 Spalten zurück bzw. vor. Dadurch 
entsteht der Eindruck eines Hüpf er s. 
Bei hoch/tief springt das Männchen 
scheinbar erst 2 hoch bzw. 3 tief, dann 
3 hoch bzw. 2 tief. 

Der Eindruck der Bewegung wird 
durch Printen des Männchens an der 
zweiten Position und durch Löschen 
an seiner ersten erreicht. 
Die selbständige Bewegung wurde fol- 
gendermaßen realisiert: Nachdem alle 
Schlüssel gesammelt sind, erfolgt ein 
Sprung nach 3000. Dort werden die 



Positionen der Rakete und des Männ- 
chens zueinander berechnet. Daraus 
läßt sich die Bewegungsrichtung be- 
stimmen; wie hoch und wie weit. Jetzt 
muß nur noch i$ mit dem Buchstaben 
gesetzt werden, der die entsprechende 
Bewegungsrichtung symbolisiert. Nun 
erfolgt ein Sprung in die benötigte Be- 
wegungs-Subroutine (1000 o, 2000). 
Hat das Männchen die Rakete er- 
reicht, zündet sie, hebt ab und fliegt 
aus dem Bildschirm. 
Bonusmnde ist zu erreichen nach 5 
Bildschirmen, ohne Verlust des Le- 
bens. Das Männchen schwebt über 
Pfeilen, zwischen denen das Raum- 
schiff steht. Durch Tastendruck ge- 
steuert, hält es an und sinkt nach un- 
ten. Trifft es das Raumschiff, erhält es 
einen Bonus und das Spiel geht weiter. 
Trifft es das Raumschiff nicht, verliert 
es ein Leben. Auch hier startet das 
Raumschiff und fliegt davon. 

Spielende 

Im Programmteil ab 8000 werden die 
Leben gezählt. Sind alle verloren, er- 
klingt ein bekannter Trauermarsch, 
der Score bzw. neue Highscore wird 
angezeigt. Dann erfolgt die Anzeige 
aller 8 besten Spieler, in absteigender 
Reihenfolge. War der Score größer als 
der des 8. Spielers, hat man die Mög- 
lichkeit, seinen Namen in der Score- 
Tabelle zu verewigen, sonst erfolgt die 
Aufforderung, weiterzumachen. 



LISTIWB JDStafBM TEIL i 



10 
2B 
30 
40 



REM IKCüSV HHßSEN-i 

rem *************** 

f?ükes 1,0? bqke52 , 2b j f0ke55 , ■ pdke5s , 28 : clr : cb«7 1 68 

REFiliÖ? lFfts-iTHEN90 

FÜBNB0TÜ7 f fiErtDB • PÜKECB+fl*S+N , B ; HE'HT 

GDTü'Sß 

ÖÜSUE440 

BRTÖ0,24,24, 124,218,218,24,36, 102 

flßTBlfij £&*££, 219* ££j£0*24j 36* fi£ 



70 

30 
90 

im 
ii0 

120 :DöTfil,8,0,0,040,5£,84, i£ 
130 BHTfl2,24,£l3,g0, 126, 126,255,24,24 
140 BBTa?,£3,?2, 167, 128,225,49,239, 195 
150 DHTfl'S* 3, 4, 196, 35, 144, 24, 56, 195 
168 B8Tfi3, 196, 10, 17, 145,81,81,74, 132 
170 BBtai0, 119, 66, £6, 114, 66, 66, 66, 66 
130 DHTfi5, 151, 148, 148,247, 148," 148, 143, 151 
190 BftTB£,7i,£9,£9,£9,7i,£3,£S,il6 
200 BR1*R3, 0,0,0,0,28,54, 73, 8 
210 BRTR4, 101,85,85, 117,87,82,82,98 
220 BSTR12, 0,1,34,34,250,34,33,0 
230 BRTR1 1 , 60, fifi j 153, lfil , ifil , 153, 66, 60 
BRTR13,0, 136,20,34,34,20, 137,0 
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250 
260 
270 



300 

310 

320 

330 

340 

350 

360 

3?ß 

388 

330 

400 

410 

420 

430 

440 

450 

460 

470 

460 

49ö 

500 

SIS 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650" 



DßlfliSi B, £0, 255, 24, 24, 255, 60, 
BRTR16, 60, 126, 255, 253, 126, 24, 24, 24 
BRTR17, 2S; 62, 47, ?i, 65, 66, 36; 24 
BRTfi20,254,254, 198, 198,6,6,6,6 
BRTR21;S0; 126, 135, 195, 195, 195. 195; 195 
BRTR22, 33, 99,99,54,54, 54; 2S, 28 
BRTH23,£,6,£,6,£, 198, 126,60 
BRT824, 195, 195, 195; 195, 195, 195, 12&,60 
BRTR2S, £4, 24, 24, 24, 24, 24, 24, 24 
BRTR26, 190i 198,238,238,230,233,238,254 
BRTR27, 126,255, 195, 195, 195.- 195, 195, 255 
BR.TR2S,255, 195, 195, 195, 195, 195, 195, 195 
BRTR23, £27, 227, 227, ZU , 21 1 , 211 1 203, 203 
BRTR30, 203, 199, 199, 199, 195, 193, 195, 195 
DHTfl3ii 64, 64, 64, 64, 64, 64, 126,0 
BRTR29, 227, 227, 227, 21 1,211,211; 203, 203 
33^X^31,0,0,0,0,0,0,255,255 
DRTR33, 254, 198, 198, 198, 198, 198; 198. 198 
BRTR32, 0; 0, 0, 0,0,0,0,0, -1 
P0KE3SS79, 25 ) P0KE36ß£9, 25S 

fr i nt - ammmmtmmjimmmii m ,h 

PRlHT'.'iiilWiJKIMlII! M£llt" 

pr int ^ , Ja]CIlDi3lsa■ll■llKkIDlI3HIJiL.^f. >> 

PRINTVlOaiUrBSTEV 1 'PÜKEi98,0:WfiIT19S, 1 =PQKE36869,240 
PHINTVaiHaSIE SOLLEN IN EINEM UfflJD PILZE SRMMELN . " 



680 
690 

?m 

710 
720 
730 
740 
750 
760 
770 
780 



PRINTÜSBER VORSICHT ES GIBT AUCH NOCH OIFTIOE 
PRINT'EIN MONSTER SOLL IHNENDR3 LEBEN SCHWERER 
PRINT».'WENN SIE BEN URLD VER-LflSSEN WOLLEN; UM IN 
PRINT'.'MUESSEN SIE NUR ZUM 'HELP' LfiUFEN ." 
PRINTLINE HBSELHUSS VER- SPERRT IHNEN DEN WEG 
PRINTVWMrrfiSTEB" ;POKE19S,0; NfiITi9S, 1 
PRINTVaaDESBMMTUEBEESICHT J " :P£IKE36869,255 
PKINT'-'Äin SN GIFTIGER PILZ" 
PRIKT."MMIB Sfc BRUM" 
PRINT"»WC SN PILZ" 
PRINT'.'Äliffi »s BD." 

PRINT."»MEF &* NHECH8TES FELD' 1 " 

PRINT^HÜD 8* BREMPFER" 

PRINTVÄM 3, SN BRUM" 

PRINTVÄIB 0« HASELNUSS" 

FRINT."»WR fe MONSTER" 

PR INT "IHM KMDIDHIJMLM" 

PÖKE19S,@'iWRIT198, 1 :PRINT'\T : POKE36869,240 

PRINT"!? 1 

PRIHT"RH2EIöE;" 

FR1NT»"' " " "T T ." 

PRINT"'J8MilDlliEC;ÜRE TIME 

PRINT'-'M / •.' 

PRINTJ'MI 60 80023 2 60 

PRIHT"SM / \ 

PRINT'IHW FIELB HISCORE 

PRIHT"lflBflDIE 8NZEIQE SELBST 1STMIN RVS GESCHRIEBEN . '• 

PRINT'?JßMSTflSTEH M :PDKE19S,0: WRIT1S8, 1 

PRINT H aBBiBLfiDE NUN JOV MAN 



PILZE IN BIESEN WRLB. 

MACHEN 

NRECHSTEN ZU KOMMEN, " 

ZUM "HELP" ." 



LISTING JOV-MflN TEIL 2 

10 REM MÜMMM 
20 REM äfJOV-MRNi 
30 REM «iftfCMifei 
40 REM *£Y TIMM* 

50 REM I HRBSE * 
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m REM ** M 

70 REM % % 

m REM * * 

90 REM UsHfifl'SEW-* 

100 REM*' SOFT * 

110 REM**Ü<i£U*i 

120 REM**ft*ifsi*I*i 

130 paKE3eaS9'j2S5;P0KE3ße?3i25 

140 PRINT ,, MMaW«ÄiiiilT üVfZt ]" 

150 PR INT" «WWW XV ! £ T" 

ISO PRINT 1, IWaiflilia(MMKIIDIE(HlJIIJ1 

170 Pä0 : F0«»0 1 PÜKE37139 , = J»l : Fi«36877 : N9»36S7B 

180 S2*36S75 ■ L*36878 

190 PDKEL,15 

200 RESTDRE 

210 REfillP 

220 IFP»-i.THEN270 

230 REflDB 

240 P0KES2 iP 

250 FQRNk1TDD;HEJ<TN 

260 P0KES2 j : F0RN*i.TÜ2B : NEX.TN ; BOTO210 

270 P0KES2 , ; 0070240 

280 BHTB215, 225, 207,500*287, 225, 215. 225, 219, 225,281,580,281,225 

290 B8TR207, 225, 209, 225, 225, 225, 100, 5, 225,225, 223, 225, 215, 225,219, 225,215, 225, 20 

9,225 

300 BflT8207,500 

310 DHTH215, 225, 213,225, 219, 225, 219, 225, 228, 225, 225/225, 223, 225, 225, 225 

320 BfiTR'219,225, 215,225, 195,225,201,225,207,225,213,225 

330 B0Tfl215jS00j215j225j209i225jl91j223jl91j223*195j225*-l 

340 13*77 i 2 : PE I NT " 3.'.' : F0KE3SB79 * 25 

350 POKE3£Sfi9,Z5SiPa0;P0!S0 

3SS P0KE3fiS.7ffiß 

370 PßINT"a H : F0i<:E3£879, 8 ? FORV-1TD100 

380 PDKE7680fIMTCRWIKl>i4B4>,2 

390 NEXTV 

400"FORÜVsiTOI00 

410 PQKE7S80+INTCRNBU 3*484) ,16 

420 NEKTQVf 

430 FGET»1TQ50 

440 PüKE76S0+INKENIK1>*4B4>j3 

450 NEXTT 

460 FOBUälTO350J 

470 PDKE?fiS0-f INT£RND< 13*404) i 1 

480 NEXTW 

490 F0EC1»77B2TD91£4STEP22 : P0KEC1 AS- NEXTCi 

508 FDBC1P7723TOB10SSTEP22JPDKEC1- lßJNEXTCl 

510 FÖRCl-8164T08iSS!P0KECl,2!NEXTCl 

520 FORC 1 «8032TÖ3053 < PÜKEC 1 , 1 5 : NEXTC 1 

530 pr int !1 mfmmmmmmwwmmmKF " 

540 TI** l, 000000." ;D*7712?N2»79ia:VSp8033Jia»a064 

550 BETB* :PÜKEIi,32:P0KEKL,32* IFfl*»"WHHEND*D-22 

5£ö lFftI«. M fl?THEND"D-l 

570 IFfl*»"K"THEHÜ*H'422 

580 1FH*»"D"THEND»D+1 

590 J9-PEEKC37137) -PÜKE37154, 127= JB-PEEKC37152) :P0KE37154,255:KL*KL+22 

ßm 1F a9fiMB4}*0THENB«B-22 

610 IF<J9flNBa>s0THEND»B+22 

620 lFCJ9aNDlfiJ*0THENDsD-l 

£30 I F C JBfiND 1 28" > (■0THEND*D+ 1 

640 H2» l NT i RND i 1 ) $4 } + 1 : PGKEN2 ; 32 ; I FM2- 1 THENN 1 *-22 

650 IFM2»2THENNlaX 

660 1FM2*3THENN1«-1 

678 V5»V3+1 ^__ 

3Q ___________ __„__—__ ___________ — Computronic 




IFK2s»4THEHNisi22 
690 I FPEEK C D 3 »SÜRPEEK (. 13 3 »STHEN J» J+ i : GOTO370 
700 IFV5-8031THENPOKEVS, 15 : POKEVS+i , 13 ' V5*8032 
710 IFHIiCPTHENHIwP 
720 QOSUB920 

738 I FPEEK ( II 3 =3THENP0KEF 1 j 24 1 : P0KEN9 ,13: RQKEF 1,0: P0KEN9 , 
740 IFPEEKIÜN2+N1 )«50RPEEIttN2*Nl >N5THENN1*0 
730 IFPEEK(N2+H1 )alfiTHENNlss0 
?m IFFEEKÜN2+N1 3«15THENN1«0 
770 IFPEEK(N2+N1 3*2THENN1«0 
780 IFPEEK<N2+H1)ä1THENN1*0 
790 I FPEEK i N2+N 1 3 * 1 THEHH 1 »8 
880 IFPEEKCN2+H1)»3THEHN1*0 
810 IFN2*DTHEN990 
820. IFKL-DTHEN990 
938 IFKLsS152THENKL»S064 
84Ö PüKED,0:PaKED+30720il 
850 P£KEN2j32 :K2*N2+N1 :P0KEN2* 18:N1«0 
860 POKEVSjl3;PDKEV3+2*32:POKEV5+30720il 
%?% PöKEVSt 1 4 13 i KHCEV5+1 , 32 ; PDKEV3+30721 j 1 
SS0 POKEKLj l?:PGKEKL+30720, 1 
890 PfilNT^Mff'jP+POJ" w jT1*JJjHI 
900 IFVHLCTI*3>150THENGOTO990 
9iÖ GOTD 550 

920 1 FPEEK ( D 3 ?*3THENF*F+ 1 : EETURN 
930 IFPEEK£B>-1THENGÖTD990 
940 IFPEEKCD>j««2THENGOTO990 
950 IFPEEK<l]l3ä»lSTHENGO.TO"9S0 
960 IFB*N2THEN9S0 
970 IFPEEK<D34?13THEN330 
9Ö0 KETURN 

990 F0KE3£S?9j i59:FÖRU*lTQ580:NEXT 
1000 PüKE3ß87Si Ii0;FüRL*lTO200?NEKT'POKE3g879.25 
1810 IFHKPTHENHIhP 
1020 IFK<J.THENKfeJ 
1030 POKE368'69,240!PDKE3S87,25 

1040 PRiNT (> ittiA OftME üver m#wMmBamMBCQRE-> « j p+pö:pr int» »wiHi score j " 

JHI 

1050 P'RINT»afflIFIELB! M JK 

1060 PDKE3S87.7.220 

1070 FDRLffiSTO0STEP-r 

1080 PöKE3S87SiL 

1090 FORH«1TD300 

1100 NEXTM 

1110 NEKTL 

1120 POKE36S77,0 

1130 POKE368?8j0 

1140 PRINT"* REPLflV WN> ? " sflETH*: IFfl*» ,,,, THENU40 

1150 lFfl**.WTHENGOTD3S0 

1160 IFflfH"H."THENPHIMT , !3"iEND 

1170 IFR*ÖVN»0NDfl*ÖVJ M THENGOTÜ1140 

1180 EHE 

RERDV. 

Buffalo Bill Korrektur 

1 REM ************************************ al " 

2 BRTfi 143, 169. 127. 141, 34. 145, 173,32. 145, 41,128, 133. 251. 169, 255 «/VlS® 1 

3 MTB 141,34,145,173,31,145,41,28,24,101,251,133,251,173,31/145 Jhe ^ « 

4 DflTfl 41,32,133,252,96 \tt*9 a \/C ^° 

5 FÜRI «4101 TU 4101*35 :ßEfiD Bfl:pÜKE I,Dfl:NEXTI J.-1lW* 

6 GÜTO200ÖQ ^0** e * 

Nach der Korrektur die Zeile 20010 bitte entfallen lassen! 
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Fortsetzung von Seite 7 

weicht von der Norm ab. Es ist kein 
starres gebundenes Buch, sondern es 
macht mehr einen ringbuchartigen 
Eindruck. Auch die Seitennumerie- 
rung ist anders als bei anderen Bü- 
chern, denn Andreas Dripke hat in 
seinem Buch die Seiten kapitelweise 
durchnumeriert. Er erklärt auch, war- 
um: Diese Art der Numerierung er- 
laubt, „für neu erscheinende Compu- 
ter-Seiten einzufügen etc.". 
Einen kleinen Wermutstropfen gibt es 
bei diesem Lehrgang auch, aber ein 
Wermutstropfen, der bei näherer Be- 
trachtung gar keiner ist. Wie Sie 
sicher wissen (oder zumindest bereits 
gehört haben), besteht die Assembler- 
programmierung des 6502 darin, daß 
Befehlsworte aus drei Buchstaben 
(eventuell mit Argument) in den Com- 
puter eingegeben werden. Diese Be- 
fehlswörter werden dann als Zahl vom 
Computer im Speicher abgelegt. 
Wenn Sie aber nun „LDA £100" (das 
ist ein Assemblerbefehl) in ihren Com- 
puter eingeben, so wird der nur mit 
einem Achselzucken (sprich SYN- 
TAX ERROR) darauf antworten. As- 
semblersprache kann man also nicht 
direkt in den Computer eingeben, son- 
dern man benötigt ein Programm, wel- 
ches die Assemblerbefehle in die ent- 
sprechenden Zahlen umwandelt. Sol- 
che Programme heißen übrigens auch 
ASSEMBLER. Das hier besprochene 
Buch bezieht nun seine Aufgaben auf 
einen ganz bestimmten Assembler (ge- 
nannt T.EX.AS = Terminal Extended 
Assembler), welcher ebenfalls aus 
dem Hause Dripke stammt. Parallel 
zur Anschaffung des Buches empfehle 
ich, daß man sich T.EX.AS anschafft, 
obwohl der Lehrgang auch mit ande- 
ren Assemblern erfolgreich durchzu- 
arbeiten ist. Aber einem Assembler 
benötigt man früher oder später sowie- 
so und mit T.EX.AS erwirbt man ein 
absolutes Spitzenprogramm auf die- 
sem Gebiet. Außerdem hat es sicher 
Vorteile, wenn man bereits beim Er- 
lernen der Assemblersprache mit dem 
Assembler arbeitet, welchem man 
auch später bei seiner Programmiertä- 
tigkeit benützt. 

Nun aber zu dem Buch selber. Es ist in 
einer sehr gut dosierten Mischung aus 
Theorie und Praxis geschrieben, so 
daß man es am besten am Computer 
sitzend bearbeitet. Die zu lernenden 
Assemblerbefehle werden in kleinen 
Programmen vorgestellt und dann de- 
ren Wirkung ausprobiert. Zwischen 
diesen mehr praktisch orientierten 
Kapiteln sind welche mehr theoreti- 



scher Art eingestreut, in welchen von 
Bits und Bytes erzählt, der Speicher- 
aufbau erläutert oder die verschiede- 
nen Adressierungs arten in der Assem- 
blersprache besprochen werden. Mit 
theoretischen Kapiteln meine ich al- 
lerdings nicht, daß diese Kapitel 
trocken dargebracht werden. Auch sie 
sind, wie das ganze Buch, in einer 
lockeren, leicht verständlichen, aber 
doch korrekten Sprache geschrieben. 
Und hat man wirklich einmal etwas 
nicht verstanden, so kommt am Ende 
eines jeden Kapitels noch einmal eine 
Zusammenfassung, in welcher das 
Wichtigste der' letzten Seiten noch 
einmal gesagt, neu erlernte Befehle 
noch einmal aufgelistet sind. 
Ein Wort noch zum letzten Kapitel des 
Buches - Betriebssystemroutinen. 
Dieses für einen Assemblerprogram- 
mierer äußerst wichtige Kapitel wur- 
de, bedingt durch die Konzeption des 
Buches, für mehrere Computer geeig- 
net zu sein, nur recht allgemein abge- 
handelt. Ich persönlich hätte mir da 
mehr Informationen über meinen 
Computer gewünscht, ohne mir gleich 
noch ein Buch anschaffen zu müssen. 
Ein Wunsch, der vielleicht durch ei- 
nen Computer spezifischen Anhang 
einmal in Erfüllung gehen könnte? 
Zusammenfassend möchte ich sagen, 
daß dieses Buch durch seine Ver- 
ständlichkeit das Beste ist, was ich bis- 
her zum Thema „Einführung in die 
6 50 2- Assemblersprache" in der Hand 
hielt. Trotzdem möchte ich dem völli- 
gen Anfänger raten, nicht der Ver- 
sprechung auf dem Buchrücken zu 
glauben und gleich mit dieser maschi- 
nenorientierten Sprache zu beginnen, 
sondern sich erst in BASIC hineinzu- 
arbeiten. Denn ein Teil der Verständ- 
lichkeit des Buches beruht auf Ver- 
gleichen der Assemblerbefehle mit 
BASIC-Befehlen, was, wenn man BA- 
SIC nicht beherrscht, natürlich nicht 
viel bringt. Der BASIC-Programmie- 
rer findet aber mit diesem Buch einen 
so leichten Einstieg in dieses neue Pro- 
grammiergebiet, daß ich ihm die An- 
schaffung nur empfehlen kann. Der 
Preis für die 1 46 Seiten ist mit 38- DM 
zwar hoch, im Vergleich zu anderen 
Büchern ähnlichen Inhalts aber wohl 
angemessen, zumal das Buch auch 
dann noch als Nachschlagewerk zum 
Thema „Wie war das noch ...?" dienen 
kann, wenn die ersten eigenen Ma- 
schinenprogramme schon lange lau- 
fen. 

6502-Assemblerkurs für Beginner von 
Andreas Dripke, Interface Age Verlag 
GmbH, ISBN 3-88986-000-1, 146 Sei- 
ten, Preis: ca. 38,- DM. 



Fortsetzung von Seite 4 

Ein eigenbrötlerischer Erfinder aus 
Kalifornien namens Walter Spawr ist 
ein klassisches Beispiel. In seiner Ga- 
rage entwickelte Spawr ein neuartiges 
Verfahren zur Glaspolitur, das später 
zum Schlüssel der neuen Laserwaffen- 
Technologien für den Weltraum wur- 
de. Alsbald kauften auch die größten 
Rüstungskonzerne Amerikas bei ihm 
ein. Politisch war Spawr ein Anhänger 
von Ronald Reagan. Er hielt sich für 
einen rechtschaffenen Staatsbürger. 
Als er jedoch in finanzielle Bedrängnis 
geriet, konnte er in ein Ost- West-Ge- 
schäft gelockt werden, an dessen Ende 
er eines der meistgehüteten Geheim- 
nisse der USA an Moskau verkaufte. 
Seine Laserspiegel wurden später in 
Semiplatinsk und Sarajaua bei sowje- 
tischen Waffentests verwendet. 
Frage: Wie kommem Sie darauf, daß 
solche Ost- West- Geschäfte einen ge- 
heimdienstlichen Hintergrund haben? 
Tuck: Es ist allgemein bekannt, daß 
der damalige KGB-Chef Juri Andro- 
pow Anfang der siebziger Jahre eine 
neuartige Abteilung in dem sowjeti- 
schen Spionageapparat unter dem Na- 
men Direktorat „I" gegründet hat. 
Heute werden dort 5000 Analytiker 
mit der Zusammenstellung illegaler 
Einkaufslisten und der Planung opti- 
maler Schmuggelrouten beschäftigt. 
Sie sind keine Spione im herkömmli- 
chen Sinn, sondern hochkarätige Na- 
turwissenschaftler, Ingenieure und 
Computertechniker. Ihre ausschließli- 
che Aufgabe ist jedoch der Diebstahl 
von NATO-Know-how. Anhand von 
Anklages chrif ten , ' Senatsanhörungen , 
Interviews und Presseausschnitten 
läßt sich die Spur ihrer weitverzweig- 
ten Operationen zurückverfolgen. Ei- 
nige KGB -Agenten tarnen sich bei 
Moskauer Handelsunterehmen, wie 
MASHPRIBORINTORG oder TECH- 
MASHIMPORT, wo sie Westreisende 
ansprechen, die sie für Embargo- 
Schiebereien anwerben sollen. Dazu 
gehört etwa Viktor Kedrov, der als 
Agent des militärischen Geheimdien- 
stes GRU in London aufflog und später 
für das sowjetische Elektrounterneh- 
men ELORG die Einschleusung ganzer 
Fabrikanlagen in den Ostblock orga- 
nnisisrte. Andere werden näher am 
Geschehen in den westlichen Vertre- 
tungen von Ostblock-Unternehmen 
stationiert, wie etwa der Mitarbeiter 
der sowjetischen Handelsmission, 
Guennadi Batachev, der im letzten 
Jahr wegen Spionage für das KGB vom 
Oberlandesgericht Düsseldorf verur- 
teilt wurde. Wo auch immer sie sind, 
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mit Geld geizen sie nicht. Einige west- 
liche Kaufmänner sind durch ihre Ge- 
schäfte mit Sowjetspionen schwer- 
reich geworden. 

Frage: Beteiligen sich auch große Kon- 
zerne an solchen Geschäften? 
Tuck: Selten. Unter den 180 Firmen, 
die in den schwarzen Listen des US- 
Handelsministeriums stehen, sind ein 
paar namhafte deutsche Konzerne auf- 
geführt. Aber die meisten Firmen in 
der sogenannten „Export Denial List" 
sind kleinere Unternehmen und ... 
Frage: ... Sagten Sie, 180? So viele 
bundesdeutsche Unternehmen stehen 
in einer US-Schwarzliste? 
Tuck: Unternehmen und Privatperso- 
nen, ja. Seit der Verschärfung der 
amerikanischen Embargobestimmun- 
gen im Jahr 1980 ist der illegale Han- 
del mit Spitzentechnologie sprunghaft 
angestiegen. Die meisten Dealer arbei- 
ten aber, wie gesagt, mit kleineren Fir- 
men. 

Frage: Was wird da sonst geschmug- 
gelt? 

Tuck: Der bekannteste - wohl auch 
größte - Schmuggelring, der jemals 
aufflog, operierte in der Nähe von 
Hamburg. Geleitet wurde er von dem 
Jesteburger Kaufmann Richard Mül- 
ler. Eine Sendung von Müller wurde 
im vergangenen Herbst am Afrika Kai 
im Hamburger Freihafen beschlag- 
nahmt. Den Inhalt - unter anderem 
zwei hochgezüchete VAX-782/11- 
Computer der Digital Equipment Cor- 
poration - ließ der US-Verteidigungs- 
minister Caspar Weinberger nach 
Washington einf liegen, wo er ihn der 
Presse als Beispiel für den sicherheits- 
gefährdenden Schwarzhandel mit 
strategischen Computern vorführte. 
Die brisante Affäre um Müller wurde 
später sogar im Weißen Haus zur 
Sprache gebracht. 

Frage: Was ist daran so brisant? Der 
VAX-782 von Digital Equipment ist 
eigentlich ein gängiger Rechnertyp in 
der westlichen Wirtschaft. 
Tuck: Erst im Zusammenhang mit an- 
deren Hardware- und Software-Sen- 
dungen, die Müller gleichzeitig durch 
Hongkong, Schweden und Südafrika 
schleuste, ließ sich der Zweck des Ein- 
kaufspakets erkennen, das Müller für 
die Sowjets zusammengestellt hatte. 
Zusammen mit den VAX- Rechnern 
reichte das Gerät zur Errichtung einer 
ganzen Fabrikanlage für moderne 
Computerchips. Neben Elektronik be- 
sorgte Müller auch westliche Leder- 
sessel, Schreibtische, Klimaanlagen, 
Lichtschalter und Feuerlöscher, mit 
denen das russische Rechenzentrum 
ausgeschmückt werden sollte. Zwei 



Fliesenleger wurden von Hamburg 
nach Moskau geflogen, um einen anti- 
statischen Fußboden zu verlegen. Hin- 
tergrund des Unternehmens war die 
Herstellung sogenannter „Very-High- 
Speed-Integrated-Chips". Diese Su- 
perchips oder VHSICs sind der aktu- 
elle Brennpunkt neuester Computer- 
technologien und Gegenstand eines 
intensiven Wettlaufs zwischen dem 
US -Computerriesen IBM und dem ja- 
panischen Multi Hitachi. Von wirt- 
schaftlichen Interessen aber einmal 
abgesehen, haben VHSICs eine Eigen- 
schaft, die für Militär Strategen äußerst 
interessant ist: sie sind gegen die 
Strahlen aus einer Atomexplosion wi- 
derstandsfähig. Aus eigener Kraft hät- 
te die sowjetische Industrie eine ver- 
gleichbare Technologie mit Sicherheit 
nie zustande gebracht. 
Fr age: Wo ist dieser Richard Müller 
heute? 

Tuck: Auf der Flucht. US-Behörden 
sowie die Staatsanwaltschaft in Lü- 
beck suchen ihn per Haftbefehl. Inter- 
pol fahndet nach ihm, wohl auch eini- 
ge westliche Geheimdienste. Nach 
meinen Informationen hält er sich im 
Ostblock auf. In Lübeck wird zur Zeit 
der Prozeß gegen mehrere Mitarbeiter 
von Müller vorbereitet. 
Frage: Richard Müller ist aber nur ein 
Mann. Ein Einzelfall? 
Tuck: Wohl kaum. Auch die acht in 
meinem Buch beschriebenen Schmug- 
gelfälle sind nur die Spitze eines Eis- 
bergs, Im Herbst 1981 gründete der 
US- Zoll die Sondertruppe „Operation 
Exodus", die sich ausschließlich um 
Technologie-Delikte kümmert. Seit- 
dem wurden über 2500 Sendungen be- 
schlagnahmt - und die Dunkelziffer ist 
erheblich. Drehscheibe dieses 
schwarzen Handels ist die Bundesre- 
publik Deutschland. 
Frage: Welche ernstzunehmende Fol- 
gen kann ein Handel mit Computern 
haben, die zumeist schon in Kaufhäu- 
sern für jedermann erhältlich sind? 
Halten Sie das wirklich für so gravie- 
rend? 

Tuck: Das Ausmaß des Schadens für 
die westliche Sicherheit wird erst 
deutlich, wenn man die Endverbrau- 
cher unter die Lupe nimmt. Rund 1 60 
Waffensysteme des Warschauer Pakts 
enthalten westliche Technologie. In 
der DDR koordinieren westliche 
Großrechner die Truppenbewegungen 
der Volksarmee; in Afghanistan 
steuern westliche Kleincomputer so- 
wjetische Kampf jäger. Kriegsschiffe 
der Roten Flotte werden in Trocken- 
docks aus Japan und Schweden ge- 
wartet. Die ATOLL-Luft-Luft-Rakete, 



die im vergangenen Herbst von einem 
sowjetischen Luftwaffenpiloten abge- 
feuert wurde und 269 Zivilisten in ei- 
nem Jumbojet der Korean Airlines tö- 
tete, war eine Eins-zu-eins-Kopie der 
NATO-Sidewinder. Die SS-20-Atom- 
rakete, die sich gegen die Bundesrepu- 
blik richtet, ist geradezu vollgestopft 
mit dem neuesten Know-how der 
NATO: Sie fahren auf Transportfahr- 
zeugen, die mit Hilfe von IBM -Hard- 
ware aus New York und MIT-Soft- 







wäre aus Massachussetts entworfen 
wurden; die Raketenspitzen sind mit 
einem Karbonhitzeschild aus New 
Jersey beschützt; und sollte der Befehl 
zum Abschuß jemals kommen, werden 
ihre Mehrfach-Sprengsätze mit Krei- 
seln in westliche Ziele gelenkt, die mit 
Hilfe einer US-Firma in Vermont her- 
gestellt werden. Das halte ich schon 
für bedenklich. 

Frage: Daß die Sowjets westliche Mili- 
tärtechnologie kopieren, ist aber nicht 
gerade neu. 

Tück: Der östliche Nachbau von west- 
lichen Waffen hat in der Tat eine lange 
Tradition. Schon die alten Tupolev 
TU-4-Fernbomber waren dem US- 
Weltkriegs veteran B-29 nachempfun- 
den worden. Heute geht es aber nicht 
mehr um den schlichten Diebstahl von 
Blaupausen. Schon Mitte der 70er 
Jahre mußten die Sowjets erkennen, 
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daß ihre einheimische Industrie außer- 
stande ist, die präzisen Herstellungs- 
bedingungen für Computer-Elektro- 
nik zu erfüllen. Also änderten sie ihre 
Beschaffungstaktik. Statt - wie bisher 
- westliche Prototypen einzuschmug- 
geln, auseinander zu montieren und in 
mühsamer Kleinarbeit auf rückständi- 
gen Maschinen nachzubauen, be- 
schlossen sie das nötige Hexstellungs- 
gerät im Westen gleich mitzubesor- 
gen. Trotz der strategischen Brisanz 
dieser Maschinen werden sie selten 
als Militärgeheimnis eingestuft. Man 
mußte nur die Embargobestimmungen 
der NATO umgehen, die den Export in 
ein Ostblockland gesetzlich untersa- 
gen. 

Frage: Die Sowjets verfügen über For- 
scher und Ingenieure, die zur Welteli- 
te zählen. Wenn man Ihnen glaubt, 
müßten sie aber in einer. hoffnungslo- 
sen Abhängigkeit zum Westen stehen. 
Woraus wollen Sie das schließen? 
Tuck: Die Überlegenheit westlicher 
Elektronik ist unstrittig. . Sicherlich 
verfügt die UdSSR über hervorragen- 
de Technologien. Sie kann auch neue 
Technologien in die Massenproduk- 
tion ihrer Waffensysteme überra- 
schend schnell umsetzen. Das sowjeti- 
sche Problem liegt zwischen Theorie 
und Technologie. Für die rasanten 
Entwicklungen auf dem Elektronik- 
Sektor sind die langfristigen Jahres- 
pläne und schwerfälligen Bürokraten 
einer Planwirtschaft denkbar schlecht 
geeignet. Erfindungsgeist und Innova- 
tion werden in den Mühlen des So- 
wjetsystems erstickt. Das zeigen die 
Entwicklungen der 60er Jahre: 
Die Rechner, die seinerzeit in der 
Computer-Metropole Minsk entstan- 
den, waren begrenzt in der Speicher- 



kapazität, rückständig im- Software- 
Bereich und sehr störanfällig. Die ver- 
antwortlichen Werksleiter störte das 
allerdings kaum. Ihr Erfolg wurde aus- 
schließlich an der Zahl der produzier- 
ten Maschinen gemessen. Qualität 
konnte ihnen egal sein. Als Moskau 
erkennen mußte, daß seine Bemühun- 
gen scheitern würden, entstand ein 
heftiger Flügelkampf in der Kremlfüh- 
rung über den besten Weg aus der 
Misere. 

Am Ende wurde beschlossen, westli- 
che Erfolgsmodelle einfach nachzu- 
bauen. Die zwei großen Computer Se- 
rien, die folgten, waren genaue Kopien 
der IBM-Serien 360/S und 370/S - vom 
Betriebssystem über Zusatzgeräte bis 
hin zur Software. Die Russen tauften 
ihre Raubrechner RYAD-1 und 
RYAD-2 und ließen sogar die US- 
Handbücher wortwörtlich in ihre Lan- 
dessprache übersetzen und legten sie 
den eigenen Maschinen bei. Damit 
sparten sie Milliarden an Forschungs- 
und Entwicklungskosten. Da die russi- 
schen RYAD und die amerikanischen 
IBM vollkompatibel miteinander wa- 
ren, konnten sowjetische Computer 
gegen eingeschmuggelte Originalma- 
schinen aus USA jederzeit ausge- 
tauscht werden, wenn besonders hohe 
Zuverlässigkeit verlangt wurde. Dies 
ist nach Pentagon-Informationen bei- 
spielsweise im Luftabwehr-Gürtel um 
die Moskauer Hauptstadt auch ge- 
schehen. 

Frage: Ist es nicht, legitim, wenn der 
Westen die UdSSR beim Aufbau ihrer 
Zivil Wirtschaft in diesem wichtigen 
Bereich unterstützt? Oder plädieren 
Sie etwa dafür, daß man ihnen den 
Zugang zu sämtlicher Elektronik ver- 
bietet, nur weil das eine oder andere 
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Gerät eventuell beim Militär landen 
könnte? 

Tuck ; Sicherlich sind die Sowjets auch 
im zivilen Bereich an Computern in- 
teressiert. Ihre Planwirtschaft macht 
sie zu einem geradezu idealen Ver- 
braucher für EDV-Systeme. Man darf 
aber nicht vergessen, daß dieselben 
Computer-Chips, die wir in Quarzuh- 
ren, Videospiele oder Schreibmaschi- 
nen einbauen, ebenfalls das Radar ei- 
nes MIG-23-Kampf Jägers, das Lenk- 
system einer Atoll- Abwehrrakete 
oder die atomaren Sprengköpfe der 
SS-20 steuern können. Gängige west- 
liche Elektronik, die bei uns bereits in 
Billigprodukten verwendet wird, ist im 
Ostblock nach wie vor eine Rarität. 
Daß die sowjetischen Prioritäten nicht 
in erster Linie Quarzuhren und Video- 
recorder für den Verbraucher vorse- 
hen, muß hier wohl nicht weiter erläu- 
tert werden. 

Frage: Sehr entscheidend kann dieser 
Handel letztlich nicht sein. Wenn ei- 
ner den anderen kopiert, hinkt er im 
Wettlauf zwangsläufig hinterher. 

Tuck: Nicht zwangsläufig. Der We- 
sten ist zwar in der Entwicklung neuer 
Computertechnologien sehr schnell, 
aber erheblich langsamer als der War- 
schauer Pakt, wenn es um die Dislo- 
zierung neuer Waffen geht. Dies wur- 
de Pentagon-Experten deutlich, die 
den Nachbau eines amerikanischen 
Computerchips in einer sowjetischen 
Sonarboje entdeckten. Das US-Origi- 
nal befand sich noch in der Erprobung. 
Russische Rüstungsplaner hatten die 
Technologie gestohlen, nachgebaut 
und disloziert, ehe die Washingtoner 
Bürokratie eine Entscheidung über die 
Verwendung im Westen fällen konnte. 
Seit Kriegsende verläßt sich die 
NATO -Verteidigung auf die Überle- 
genheit von westlichem Wissen - auf 
die Vorstellung, daß Maschinen und 
Menschenmassen durch immer per- 
fekter werdende Technologien ersetzt 
werden können. In den nächsten Jah- 
ren wird diese Tendenz weiter zuneh- 
men. Die sogenannten „denkenden 
Waffen" der 80er Jahre bilden eine 
wesentliche Stütze der künftigen 
NATO-Strategie, Es gibt ernstzuneh- 
mende Überlegungen, die in Europa 
stationierten atomaren Gefechtsfeld- 
waffen mit modernen konventionellen 
Waffen gänzlich zu ersetzen - ohne 
Verlust an Verteidigungskraft. Mar- 
schall Orgakow, der vor wenigen Wo- 
chen als Chef strateger des Warschau- 
er Pakts abgesetzt wurde, hat die stra- 
tegische Bedeutung derlei Entwick- 
lungen durchaus erkannt. 
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Während des Spielverlaufes müs- 
sen Sie versuchen, alle 10 Frösche, 
die ihnen zur Verfügung stehen, in 
ihren Unterschlupf zu bringen. 

Zunächst muß jeder Frosch eine viel- 
befahrene Straße überqueren. Auf 
dem Mittelweg angekommen, kann er 
sich erst einmal ausruhen und die 
Flußüberquerung vorbereiten. - Ab 
Level 6 wird die Ruhepause auf dem 
Mittelweg durch eine sich hin- und 
herbewegende Schlange erschwert. - 
Auf die andere Seite des Flusses kann 
der Frosch nur gelangen, wenn er ab- 






mtt Ext. Basic 



# # 

# SPECIAL - FRÖCGER ff 



# 
GAME FÖR 1 PLAYER* 

# 
(C? BY KHB0S0 
KARSTEN BOGUSCH 
SOFTWARE 



wärtstreibende Schildkröten und Baumstämme zu 
Hilfe nimmt. Auf ihnen kann er sich, ohne ins 
Wasser zu müssen, bewegen. 
Ist der Fluß erfolgreich genommen worden, steht 
das nächste Hindernis bevor. Eine Start- und Lan- 
debahn für Flugzeuge muß gekreuzt werden. Aber 
auch das dürfte für die „echten Könner" kein Pro- 
blem sein. Sind alle 10 Frösche gut untergebracht, 
erfahren Sie über den Score, wieviel Zeit dafür 
benötigt wurde. Das Spiel ist in 99 Levels unterteilt. 
1-5 ist für Anfänger, 6-20 für Amateure und 21-99 
für Profis. Gesteuert wird mit Joystick. 



100 

110 

120 
130 

im 

150 

160 ! # (C? BY KABQ8Ö # 
170 ! # KARSTEN BOGUSCH # 
180 1 # SOFTWARE # 
190 f # # 

2Ö0 f # # 

210 ! # D-4600 DORTMUND 41# 
220 ! # # 

230 t # # 

246 
250 
260 
270 

280 QN BREAK HEXT ■ < OK WARNING NEXT 
IFY<3>" RflNDOMIZE ■■ DIN JC14) 
290 FÖR 1*0 TO 8 i« CALL C0LÖR< 1,4,2)^ NEXT I 
2,9,4, 13, 10,6,6, 11,8,8, 14, 16, 1 ) 

300 DISPLAY AK 12, 1>: »ICH DEFINIERE MEINE ZEICHEN I" 

310 FÖR 1065 Tö 90 n CALL 8O«DC-4Z00,110+I*2,0; 112+1*2,0, U4+I*2,0>» 
■■■■ CALL CHflR<I,FW>»> NEXT I «; GÖSUB 546 
320 DATA 003F666C746466EF , 007E3 1 3B3633337E , 003E634 1 40603F 1 E , 007E32 111911 3F7E , 007 
F33303C383 1 7F , 007F 723239383078 

330 DATA 003E6648504F663E,007C603F313232?A03,007C38181C1A183C2,003F13060606263F, 
007B72363C363673, 007830303072637F 

340 DATA ß07F2B2A494949S3,007C76323A323477,003E634559617F3E,007E33313F3E3078,003 

E6345596 1 7F3E07 , 007F3 1 3A34323 1 79 , 003E4 1 3C06634F3E 

350 DATA 007F492H0S0808 1 C , 086F2626666E7E37 , 087362223232 1 E0C , 007722224 1 4936 , 00793 



CALL SCREENC2)" CALL CLEAR 



CALL Mfl'GN 



CALL C0L0RC2, 15, 1/3, 16,2,4, 16j 



READ AS 
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\NSTR' 



SKfes 



2148814264F,0B7341623418i83C,007F43260ClA317F 

360 CRLL CLEHR " CALL CHRRC 48, "FFFFFFFFFFFFFFFF%90, "FFFFFFFFFFFFFFFF%89* "80FF 

FFFFFFFFFF08" , 100, , 'B588254RRi0C5184 u , 140, "42241B3C3C3C4218" ) 

379 CRLL CHRRC 141* "18187E7E181818I8") 

380 CALL -CHflRC 48/ M «30T>6828282e282D6 , S 49, "0010101010101010% 50^ w 00Di50202D6e080D6% 
51, "00D68202160Z02D6%52* H 00828282D6820202" ) 

390 CRLL CHRRC 53, "00D68080D60202D6" , 54, "00808080DS8282D8" , 55, "0006020202028282" i 
56, "00D68282D682B2D6%37, H 00D68282D6020202 M ) 

400 CRLL CLERR " CRLL DEL8PRITECRLD" fl«0 " FOR 1*1 TO 10 " R=R+1S " CRLL 8 
PRITECftI, 136, INTCRND*14+3),A, 247, -14,0)' > NEXT I 

410 DISPLAY RTC 1,3)' "www üuu www www WW i Al WW w t,j W w 2 Z Z Z 2 Z Z Z Z 2 ww 
www w w w w w w ww www Z ZZZZZZZZ2 Z2 u w w www www www www w w 

428 DISPLAY RTC9,3)'"wWw www www www w WWW W Z ZZZ Z ZZZZ www 
www ww w w www w ZZZZ ZZZZ www w www www w w w www 

438 DISPLAY RTC 17*1)' "MIT WELCHEN 8CHWIERIGKEITS-" '■ "" ■ "GRAD WOLLEN SIE BEGINNEN 

?•'»"«' : »01-05 —RNFRENGER—" ' "86-28 AMATEUR "«"21-99 PROFI " 

440 DISPLAY HT< 24,1) «"ENTSCHEIDEN SIE SICH !" " ACCEPT RTC24,24)B£EP VALIDATECD 

ICIT>SIZE<2J'«V " CALL CLEAR " CALL DELSFRITECRLL) 

450 V*V-i ii M*10 ii Q*R*PU*W*0 

468 DISPLRY RTC2*2)' "SCORE'" " DISPLAY RTC2* 14)' "H1GH8C0RE' " " DISPLAY RTC 2, 24 

) s PTR$f HI ) 

470 CALL HCHRRU, 1, 100,32)' « CRLL HCHRRC 22, l> 100*32)' i CRLL HCHRRC 2, 1, 180,3)* ' C 

RLL HCHARC2,3i, 100*23" CRLL HCHRRC 23, I, 100,3) 

480 CALL HCHRRC 4, 1,40*576)" CALL HCHRR< 23, 10,89,26)- CRLL HCHRRC 24, 19* 100*4)" 

CALL HCHRRC 7, 1 , 100, 32 ) " CRLL HCHRRC 12, 1 , 188, 32 ) 
490 CRLL HCHRRC24* 1*100*3)" CRLL HCHARC24*31* 100*2)" CRLL HCHRRC 24, 19, 100,4 ) »« 

CRLL HCHARC2*15,188) 
500 CRLL HCHRRC21* 1*108*32)" CRLL HCHRRC 3, 1 , 100, 32 ) " CHLL HCHRRC 4, 1, 100,3)" C 
ALL HCHARC 4, 5, 188, 5 ) " CALL HCHARC 4, 1 1 , 100, 5 ) 

518 CALL HCHRRC4* 17, 180,5)" CALL HCHRRC 4,23* 100*5)" CALL HCHRRC4, 29, 100,4)" C 
ALL HCHRRC 23, 31 , 180, 2 ) " CALL HCHRRC 8, 1 , 1 12, 128 ) 

520 DISPLAY RTC 24/2 JSIZE< -6) »"FRÜG8'" " CALL HCHRRC 24, 18, 136,9)" DISPLRY RTC 24 
,2l)SIZEC-5)'"GHf1E'" " DISPLRY RTC 24,27 )SIZEC -2)' STRXV+l )" DISPLAY RTC 23,2)' " 
TIME *" 

538 CRLL HCHRRC 23, 18,89,28)" CALL HCHRRC 24, 19, 100,4)" GOTO 638 
546 CRLL CHRRC 36* " 0000000 10262E318000B00000000000000001894D573010000080000000000 

80") 

550 CRLL CHRRC 96, "001C1C3F62EEDEDRDEEE623F1C1C0000003838FEFERBFFRBFFRBFEFE383800 

00" 5 

560 CRLL CHRRC 104, "00FF80FF80FFS0FF80FF80FF80FF80FF08FF01FF01FF0iFF01FF01FF01FF0 

1FF H ) 

578 CALL CHRRC 112, "003F7FFFFF7F3F0F0F3F7FFFFF7F3F0000FCFEFFFFFEFCF0F0FCFEFFFFFEF 

C00 H > 

580 CRLL CHRRC 120, , '0880iC7FD37 1757 17 1757 1D37F1C808000081CFEE7E6E6E6E6E6E6E7FE1C0 

000" ) 

598 CRLL CHRRC 124, "5555552R7F7FE0BEBEE07F7F2R5555550784870CF714CFC4C4CF14F70C078 

487" ) 

688 CALL CHRRC 128, "889CDCDCC8DFDCD9FBF3DCDFC8DCDC9C0038383813FB7F3F1F3F7FFB 13383 

838" ) 

610 CRLL CHRRC 132, ''000B000001033FFFFF3F038100000000003070F0F1F3FFFFFFFFF3F1F0703 

000") 

628 CRLL CHRRC 136, ,, iS423'C3C3C182442000000000000000800000000000000000000080000000 

008" ) '• • RETURN 

638 CALL SPRITEC#1,96,5, 145,256,#2,96,5* 145, 178,#3, 96*5, 145,85) 

640 CALL SPRITEC#4* 124*7, 129,228*#5* 124,7, 129* 135*#6* 124,7, 129*48) 

650 CRLL 8PRITEC#24* 120, 14, 113, 175, #25, 120, 14, 113, 100,#26, 120, 14, '113* 10) 

€m CALL SPRITEC #18, 128, 9, 97, 168, #11 ,128* 9* 97* 70* #12, 128, 9, 97* 250) 

670 CRLL SPRITEC#20, 112, 2, 73, 258, #21, 112,2,73* 100) 

688 CALL SPRITEC#19* 184, 13, 57, 200, #18* 104* 13* 57, 128, #17* 104, 13, 57, 50) 

690 CRLL SPRITEC#15, 132, 8*33*250, #22* 132*8,33* 125) 

780 FOR I«4 Tu 28 STEP 6 ' ■■ CRLL HCHRRC 4* 1*32)' ' NEXT 1 ■ ■ GOTO 1238 

,6 , : Computronic 
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710 R*0 ■■ CALL SOUND* 100,210, 1,230, 1,330. 1*,-Z, 1)« • IF f1=^8 THEN 1330 ELSE IF f'Kl 

9 THEN CALL HCHAR*24,9+M, 141 > 

720 ON ERROR 710 

730 I>161 '= Ö«INKRND*160)+40 

740 CRLL 8PRITE*#16,136,16,L,Ö) 

?m CRLL J0Y8T*2,Y,H)< = T*T+1 ^ CRLL HCHRR*23,38~IHT*T/5>,32) = • IF T=108 THEN 1 

090 

?6& IF X*4 THEN L-L-8 ELSE IF Y-4 THEN 0*0+8 ELSE IF Y"-4 THEN 0-0-8 ELSE IF X««- 

4 AND L>160 THEN 750 ELSE 780 

77Z GOTO 828 

780 IF X— 4 THEN L«L+8 '■ •■ GOTO 820 

790 GOTO 800 

800 CRLL CaiNC<RLL,B>^ FC*FC+1 n IF B«-l THEN 1090 ELSE IF FC« 16 THEN 816 ELSE 

750 
818 FOB «i H*-1*H '■•■ GF*-H <» CALL' MOTION* #28, B,H#* INT<RND*13H3>>' = CRLL MOTIO 
NC #27, 0, GF#* IMTC RND*27 )+6 > ) = • GOTO 750 

820 IF L<89 THEN 890 ELSE CRLL L0CATE*#16,L,Ö)' ' W«W+1 " CRLL SOUND* -5, 110.8, 10 
00,5,-2,5)" R=sR+8GN*X)< '■ CRLL COINC*RLL,B) = ' IF B«-l THEN 1098 ELSE 750 
830 IF L*89 THEN CRLL MOTIÖN*#16,0,0)=< GOTO 750 
840 CRLL J0YSTC2,XjiY>" T*T+1 == CRLL HCHflRC 23,30- INT< T/5 ),32>' • IF T*180 THEN 1 

850 IF Y-4 THEN 890 ELSE IF Y*~4 THEN 869 ELSE IF X*-4 THEN 320 ELSE IF X»4 THEN 

940 ELSE 830 
860 CRLL PQ8ITI0N*#16,L,0>" RaR-1 

870 L=L+8 n CRLL LöCRTE*#16,L,0)< • W»W+5 < . CRLL MOTION* #16,0, JCR) )« < CALL 80UN 
D*~5, 110,8, 1090,5,-2,5)= < CRLL COINC<RLL,B)" IF ß«-l THEN 830 ELSE 888 
880 IF L*89 THEN 830 ELSE 1090 
890 CALL P0SITI0N<#16,L,0>= = R=R+1 

900 L*L~S i: CRLL LOCHTE* #16, L, )'■ < W"W+3 !! CRLL MOTION* #16, S, J*R*)) = < CRLL SOÜN 
D*-5, 110,8, 1000, 5,-2, 5>' ' CRLL COINC<flLUB>» « IF B»-l THEN 830 ELSE 910 
910 IF L»49 THEN 950 ELSE 1098 

920 CRLL P0SITI0N*#1S,L,Ö)< « 0«Ü-8 * 

930 CRLL LÖCRTE*#16,L,0)" U»W+1 " CALL SOUND* -5, 110,8, 1080,5, -2,5 ')■ •• CALL CO IN 
C*RLL,B>" IF 8«0 THEN 1090 ELSE 830 

940 CRLL POSITION* #16, L,0)= « 0*0+8 >> fcWtf+5 " CALL LOCHTE* #16, L,0 ) ■ » CALL SOUND 
C-5, 110,8, 1080,5,-2,5)= ■ CRLL COINC*RLL,B)i •' IF B=*0 THEN 1890 ELSE 830 
950 CRLL MOTION* #16, 0,0): i CRLL LOCATE*# 16, INT*L/8)*8+l, INT* 0/8WC8+8)' ' W-W+5 n 

L»INT<L/8>*8+l •* 0«INT*Q/8)*8+3 
960 f 
970 CRLL J0Y8T*2,X,Y)" T*T+I *> CRLL HCHAR*23,30-INT*T/5),32)" IF T*100 THEN 1 

090 

980 IF L*33 RND Y«4 THEN GOSUB 1830 ELSE IF Y*-4 RND L*49 THEN 848 

99Q IF Y*4 THEN L«L-8 ELSE IF X«4 THEN 0*0+8 ELSE IF X«-4 THEN 0*0-8 ELSE IF Y— 

4 THEN L«L+8 ELSE 1010 

1000 GOTO 1070 

1010 CRLL CÖINC*ALL,B)" IF B«-l THEN 1090 

1020 GOTÖ 97B 

1838 CALL GCHAR*4,INT*0/8)+l,D)^ IF D<>32 THEN 1090 

1040 PU*PU+280 •■•■ PP=PU+W i« DISPLAY RT*2,8)SIZE*-5) = STR**PP)' ' IF PU+W>HI THEN 

DISPLAY AT* 2, 24 )SIZE* -5 ) ■ STRK PP ) 

1050 CALL P0SITI0N*#16,L,0)" CRLL DELSPRITE*#1S)" CALL HCHAR*L/8,*O/8>+I,-140)» 

'■ GOTO 1140 

1068 RETURN 

1070 CRLL LÖCRTE*#1S,L,0>" W*W+1 »« CRLL SOUND* -5, 110,8, 1008,5,-2,5): : CALL CO I 

NCCflLUBJ" IF B*-l THEN 1090 ELSE 960 

1080 f 

1090 CALL DELSPRIT£*#16)" GOSUB 1366 " M*M-1 " PP-PU+N ■» DISPLAY AT*2,8>8IZE 

<-3>iSTR»CPP>» • T*0 

1100 IF P(J+W>HI THEN DISPLAY ATC2,24)8IZE*-5) 'STR**PP> 

1110 IF N«0 THEN 1339 

1120 CALL HCHAR* 23, 10,89,28)" FÜR K*l TO 20.«» NEXT K " GOTO 710 

1130 ! 

1140 FÖR 2»! Tö 10 <* CALL SOUND* -90, 4000,4, 3900,6)" CALL SOUND* -40, 3000, 2, 2900 

Computronic : ; 37 
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,4V s NEXT Z 

1150 Q*ß+i •« IF Q«5 THEN 1170 '• T*8 
1160 'CALL HCHRRC23,10,89,2Ö)" GOTO 710 

1170 DISPLAY flTC24,2>SIZE<-3>'"FRÜGS'" • •• CRLL HCHAR<24, 10, 136,9) 
1180 (FOR Xsl TO 4 •« « CRLL 30UND< 120,450,2,460,3)" CRLL SOUNDC 120,780,3,790,3)* 
i CRLL SOUND* 1 20 , 670 , 3 , 630 , 2 ) ■ • NEXT X 
1190 FÖR 8*500 TO 110 STEP -50 •■ CRLL 8QUNDU , 5*8 , > ' 
CRLL 8OUW>C1j3*3j0>" HEXT S 

ß,T«0 «i CRLL HCHAR<23, 10,39,20) 
IF V>40 THEN V-4B 

flT<24,27>SIZE<-2>«STR«<V+l>« ! CRLL SOUNDC 390, 780, 5, 790, 6, 770,7,-1,0 



NEXT 



FOR 8*110 TO 5 



, 8«5« 

m STEP 50 
1200 M"10 
1210 V-V+l 
1220 DISPLAY 
) 

1230 FOR 1*4 TO 28 STEP 6 " CALL HCHRRC4, I,32)<* NEXT I ■« FOR X«l TO 3, > f CALL 
f1OTION<#X,0,"-r.V+7)): = NEXT X '» FOR X*4 TO 8 " CRLL t10TI0H<#X,ß,V+5) ! ' NEXT X 
1240 FOR X«24 TO 26 «' CALL MOTION* •X/Bj-C V-M3))" NEXT X 
1250 FOR X-10 TO 12 :■ CRLL f1OTIONC#X,0,V+9)' = NEXT X 
1260 CALL HOTIÖNC#15,0,~<V+18),#22,0,-<V+18)) 
1270 J<10)*-CV+5>" JC1 1 >b-< V+5 ) " JC12)»V+7 " ja3>»V+7 
1280 FOR X*20 TO 21 *' CALL MOTIQNc:#X,0,J< 10))" NEXT X ■ 
L MÖTION(#X,0,JC12))' ■ NEXT X 

1290 IF V<5 THEN 1320 ELSE H*XNTCRND*2>« « IF H*0 THEN H*~I 
1300 CRLL SPRITE<#28,36,15,89,200,0,H*aNT<RND*22H5>) 

1310 IF V<7 THEN 1320 ELSE GF*-H «> CRLL SPRITE* #27, 36, 15,49, 50, 0,GF*< INTCRND*2B 
)+5 ) ) 

1320 GOTO 710 

1330 HI«MflXaPU-fW>,HI>" DISPLAY RT<23,2)BEEP' »ädd NOCH EIN SPIEL? J/N ddd" « M ddd 
ddddddädddddddddddddddddd " 
1340 CALL KEY<0,K,S)" IF 8*0 THEN 1340 

1350 IF K*74 OR K*106 THEN 400 ELSE IF K*78 OR K»11B THEN CALL CLEfiR »• BREAK EL 
SE 1349 



FOR X-17 TO 19 



CAL 



1360 CRLL 8OUND<250, 184,8,369,3,739, 10) 
1370 CALL OTJNDU25, 184,8,363,3,738, 10) 
1380 CALL 8OUNDC250, 138,8,277,3,554, 10) 
RETURN 



CALL 301MX 125, 195, 3, 391 , 3, 783, 10 ) 
CRLL SOUNDC 290* 146,8,293,3,587,10) 
CALL SQUND< 1000, 123,8,246,3,493, 10)= 



MOON RACE 



1 i n der von »*« ein A ui- 

C sl and «er %%£%* *» H»e™ 
brochen. Star le n bente uerli 

Moo« R^e \ » % ********* 

SÄ*—** 



^SSÄ 5 ** 9este 








L/ie einzigartige Möglichkeit des TI 
99/4 A, bis zu 28 Sprites vom -Basic 
ansprechen zu können, erlaubt es, bei 
diesem Spiel drei verschiedene Gra- 
fikebenen in verschiedenen Ge- 
schwindigkeiten derart zu verschie- 
ben, daß das Bild plastisch wirkt. Die- 
ser Effekt ist besonders beim Einsatz 
eines Farbfernsehers zu beobachten. 
Durch diese Maßnahme mußte jedoch 
der Vergrößerungsfaktor 4 für die 
Sprites gewählt werden, wodurch die 
Grafik eine etwas größere Auflösung 
zeigt. Dies tut jedoch dem Reiz des 
Spieles keinen Abbruch. 
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Tippen Sie das Programm ein und star- 
ten Sie dieses mit RUN. Nach kurzer 
Initialisierungsphase erscheint das Ti- 
telbild auf dem Bildschirm. Die Titel- 
melödie erklingt und die beiden hinte- 
ren Grafikebenen setzen sich in Bewe- 
gung. Diese Bewegung wird während 
des ganzen Spieles unaufhörlich fort- 
geführt. 

Sie haben jetzt die Aufgabe, mit Ihren 
Moon Racer die Sektion Beta zu pa- 
trouillieren. Dazu steht Ihnen eine 
Anzeige von mehreren Informationen 
zur Verfügung: Am oberen Bild- 
schirmrand ist links hinter den 
Schriftzug >Zone< die Patrouillenzo- 
ne eingeblendet, in welcher Sie sich 
befinden. Die Sektion Beta besteht aus 
4 Zonen. 

In der Mitte sehen Sie die Ihnen zur 
Verfügung stehenden Racer (anfäng- 
lich 5). Daneben wird hinter dem 
Schriftzug > Score < Ihr aktueller 
Punktestand angezeigt. Am unteren 
linken Bildschirmrand ist der Level 
eingeblendet, in welchem Sie sich be- 
finden. Da Sie nach jedem Unglück, 
das Ihnen widerfährt, bei der Mondba- 
sis neu mit der Patrouille beginnen 
müssen, erhöht sich der Level immer 
dann, wenn es Ihnen gelungen sein 
sollte, mit einem Fahrzeug sämtliche 4 
Zonen der Sektion Beta zu durchfah- 
ren bzw. zu durchfliegen. 

Auf dem Titelbild sehen Sie die Mond- 
basis TI 99/4 A. Beginnen Sie das 
Spiel, indem Sie den Aktionsknopf des 
Joystick 1 drücken. An Stelle der 
Mondbasis erscheint nun Ihr Moon 
Racer, und die vordere Grafikebene 
setzt sich in Bewegung. Sie befinden 
sich jetzt in ... 

Zone 1 ist die harmloseste Zone der 
Patrouille. Sie fahren mit Ihrem Moon 
Racer einfach so vor sich hin und müs- 
sen die Ihnen in den Weg kommenden 
Krater und Geröllhaufen übersprin- 
gen. Zum Springen drücken Sie den 
Joystick einfach nach unten. 

Achten Sie jedoch darauf, daß Sie die 
Krater und Geröllhaufen exakt über- 
springen, da Sie sonst einen Racer ver- 
lieren und mit einem neuen Racer bei 
der Basis beginnen müssen. 

Für jeden erfolgreich übersprungenen 
Geröllhaufen erhalten Sie 10 Punkte, 
welche mit dem aktuellen Level multi- 
pliziert werden. 

Irgendwann im Spiel bleibt die vorde- 
re Grafikebene stehen, und es erklingt 
ein Tusch. Jetzt haben Sie Zone 1 be- 
wältigt und gelangen sofort danach 
in ... 



In Zone 2 wimmelt e.s nur so von 
Mondechsen, welche Ihnen im Weg 
sitzen. Da die Mondechsen jedoch so 
groß sind, daß Sie mit Ihrem Racer 
nicht darüber hinweg springen kön- 
nen, so müssen Sie diese Echsen elimi- 
nieren. Dazu drücken Sie den Ak- 
tionsknopf am Joystick. Sofort schleu- 
dern Sie damit einen Torpedo in Rich- 
tung Mondechse. Ihr Torpedo hat je- 
doch nur eine bestimmte Reichweite, 
so daß Sie die Mondechse erst aus 
einer bestimmten Entfernung vernich- 
ten können. Haben Sie die Echse ge- 
troffen, so werden Ihnen 5 Punkte gut- 
geschrieben', und die Echse verwan-. 
delt sich in einen Geröllhaufen, den 
Sie überspringen müssen, um weitere 
10 Punkte zu erhalten. Auch in Zone 2 
werden die Punkte mit dem augen- 
blicklichen Level multipliziert. Nach- 
dem Sie Zone 2 erfolgreich überstan- 
den haben sollten, ertönt wieder der 
Tusch, die vordere Grafikebene bleibt 
stehen, und Sie gelangen in ... 

In Zone 3 werden Sie von fliegenden 
Mondkrabben angegriffen. Diese 
Mondkrabben müssen Sie vernichten, 
da sonst Sie vernichtet werden. Wei- 
terhin ist Zone 3 ein ziemlich unwegi- 
ges Gelände, wo Sie laufend über Kra- 
ter und Geröllhaufen springen müs- 
sen. Es kommt noch hinzu, daß Zone 3 
die längste Strecke auf Ihrer Patrouille 
ist und schier nicht enden möchte. 
Mondkrabben können Sie nur im 
Sprung vernichten, indem Sie den 
Joystick nach unten bewegen und 
während des Sprunges den Aktions- 
knopf drücken, um einen Torpedo ab- 
zufeuern. Als Schwierigkeit kommt 
noch dazu, daß Sie bei jedem Sprung 
nur einen Schuß abfeuern können. 
Wenn dieser Schuß danebengeht, so 
sind Sie der Krabbe hoffnungslos aus- 
geliefert. Treffen Sie jedoch hingegen, 
so werden Ihnen 25mal Level-Punkte 
gutgeschrieben. Sollte es Ihnen wider 
Erwarten gelingen, Zone 3 zu überle- 
ben, so ertönt der bekannte Tusch, 
und die Grafik bleibt für kurze Zeit 
stehen. 

In den ersten 3 Zonen bekommen Sie 
nach einem erfolgreichen Beenden der 
Zone lOOmal Zone mal Level-Bonus- 
punkte gutgeschrieben. 
Wenn Sie es bis hierher geschafft ha- 
ben sollten, so gelangen Sie in ... 

Zone 4 ist radioaktiv verseucht, so daß 
Sie mit Ihrem Racer diese Zone nicht 
durchfahren können. Aus diesem 
Grund verwandelt sich Ihr Racer 
kurzum in einen Moon Jet, mit wel- 



chem Sie Zone 4 durchfliegen müssen. 
Zone 4 teilt sich in 4 Sektoren auf: In 
Sektor 1 kommen Ihnen radioaktive 
Wolken entgegen, denen es auszuwei- 
chen gilt. 

Dazu bewegen Sie Ihren Jet mit dem 
Joystick nach oben und unten. Passen 
Sie jedoch auf, daß Sie am Boden keine 
Bruchlandung machen und daß Sie 
nicht mit dem Gebirge kollidieren. 
In den Sektoren 2, 3 und 4 kommen 
Ihnen Strahlen entgegen, welche von 
Sektor zu Sektor mehr werden. Wie 
bei Sektor 1 gilt es auch hier, den 
Strahlen auszuweichen. 
Pro bestrittenem Sektor werden Ihnen 
500mal Sektor mal Level-Punkte gut- 
geschrieben. 

Sollte es Ihnen wider Erwarten den- 
noch gelingen, auch Zone 4 zu mei- 
stern, so hören Sie wieder Ihren Tusch 
und kehren zur Basis zurück. Sie se- 
hen die Basis, und die Titelmelodie 
erklingt. Durch Druck auf den Ak- 
tionsknopf starten Sie den nächsten 
Level, welcher sich in der Länge der 
einzelnen Zonen vom vorherigen Le- 
vel unterscheidet. 

Mit jedem Verlust eines Racers bzw. 
eines Jets kehren Sie wieder zur Basis 
zurück, von woaus Sie durch Druck 
auf den Aktionsknopf eine neue Pa- 
trouille beim gleichen Level beginnen 
können. 

Nachdem alle 5 Fahrzeuge zerstört 
wurden, erscheint wieder das Titel- 
bild. Sie können jetzt mittels des Ak- 
tionsknopfes ein neues Spiel starten. 
Moon Race ist ein äußerst interessant 
tes Spiel, welches äußerste Konzentra- 
tion erfordert und sehr lange Spiel- 
freude beschert. 

Das Spiel ist sehr schwer zu beherr- 
schen, und es bedarf einiger Stunden 
(Tage, Wochen, Monate), bis es einem 
gelingt, einen kompletten Level 
durchzuspielen. Viele Spieler werden 
bereits an Zone 3 verzweifeln. Es sei 
hierzu jedoch bemerkt, daß es zu 
schaffen ist. Spätestens bei Zone 4 
werden die meisten Spieler sagen, es 
gibt keine Möglichkeit, durchzukom- 
men. Hierzu sei jedoch gesagt, daß es 
einen Weg gibt, aber nur einen. Diesen 
Weg zu finden, sei jedoch dem Spiel- 
freak überlassen. 

Mir bleibt hierzu nur zu bemerken, 
daß ich allen Spielern viel Spaß und 
viel Erfolg wünsche bei MOON 
RACE. 

Anmerkung: Die < ALPHA LOCK>- 

Taste darf während des Spieles nicht 
gedrückt sein, da es sonst keinen Weg 
gibt, die Patrouille erfolgreich durch- 
zuführen. 
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100 ! *#*****##***********##** 

110 ! * M N R RCE I 

120 ! * * 

130 ! * TI 99/4 A +~Ex.BHSIC * 

14(3 ! * Joystick 1 ist aktiv % 

150 i * * _* 

160 ! * c 1984 Trott icsoft V.B* 

178 ! ****■*******#***#*#**#**# 

180 ! 

190 OPTION BRSE 1 

200 DIM B< 6,6), CM 6) 

S18 DflTR 195, 261. 329 ..391, 523, 659, 164 ,228. £61, 329 ..440 ..523. 119, 130, 174 ,220,261, 349 

?20 PHTfi 174,220,293,349,440,587,207,293,329,415,587,659,195,246,349,391,493,698 

230 DATA 112,116,76,72,68,64 

249 RESTORE 218 

258 FÜR 1=1 TO 6 ■•■■ FQR K*l TO 6 '• '■ READ B<K/I>" NEXT K - NEXT I 

260 FOR 1*1 TO 6 = = READ CHCI ) •• = HEXT I 

270 CH 1 ** " 30303030373F7FFFFFFFEFC7C6C6C6C600000000E0E8FEFFFFFFF7E363S36363 ■' 

280 CH2*a"03E00F0003E.0080000000000000000000800000000@000080000000000000000» 

290 CALL CLERK " CALL ASCII => CALL MRGNIFYC4) 

300 CALL COLÜRC1, 16, 14, 2, 16, 14, 3, 2, 1,4, 2, 1,8, 15, 14, 9, 5, 1,10, 4,1) 

3 1 CALL SCREEN< 1 4 > : : CALL HCHRRC 22 , 1 , 88 , 224 > ' = CALL HCHRRC 6 , 1 , 96 , 1 60 ) = ■ CALL HC 

HARC 11, 1,108,352) 



P*l 
P*32 
P*l 
CALL 

P*32 
CALL 



■ FOR 1*25 TO 28 
= ■ FOR 1*21 TO 24 
= FOR 1=17 TO 26 
POSITION-; #17, X,Y> 
' = FOR 1*13 TO 16 



328 

338 

340 

350 

360 

370 

380 

398 

4A0 

410 

420 

43Ö 

440 

450 

460 

470 

4R0 

490 

500 

510 

520 

53© 

■■ IF 

540 CALL CO'INC< ALL , ST > •• I F ST 

530 ON LEVEL GOSUB 860,890,880 

560 NEXT LÖOP -• < HEXT DELRV < • 

NEXT LEVEL •• ■■ 8TV*0 • < GOTO 936 

570 CALL LÖCRTE< # 1 , 1 2 1 , 49 , #2 , 1 2 1 , 49 ) < 



:P+63 ! > 

P-P+63 

P=P+65 ' 

PsP+64 



CALL ZONEC 1 ) 



CALL 8PRITE<:.#I, 136,5, 9,P)-'i P 
CALL SPRITEC#I,140,14,41,P>= 

CALL SPRITEC#I,128,4,S1,P): = 

CALL LOCATE<#l?,X,Y+S> 
CALL SPRITE* #1. 132, 5,81, P): 
SPRITEC#11, 120, 14, 137, 255, #10, 124,4, 153, 121 > 
FOR 1*21 TO 28 a CALL MOTION* #1 ,0,-5) = • NEXT I 
FOR 1*17 TO 20 ■•■■ CALL MOTIONCttl, 0,-10) -. : NEXT I 
FOR 1*13 TO 16 :« CALL MOTION-:: #1,0, -10)' -. HEXT I 
CALL CHAR<60,CH1$) 

RC*3 :< MR-1 '■■■ P*0 ••■■ CALL SÖORECP)"» CALL 
FOR 1*1 TO 10 ii CALL HCHARC24, 11+1,32+1 )< = 
CALL TITEL<B(, ),5) 

CALL DELSPRITE<#5>" CALL SPRITE* #1 ,104, 15, 137, 49, #2, 112,9, 137,49); 
DISPLAY RK24,2)SIZE*3)'USING "###"= HR 
FOR LEVEL* 1 TO 3 ■■ ON LEVEL GOSUB 1180,1210,1230 
CALL ZDHE( LEVEL) 
FOR DELAY*1 TO 40+10*MR 
FOR LOOP«! TO 2 
IF STV THEN 530 
ON LEVEL GOSUB 860,840,870 
CALL PATTERN'.: #2 , CK LOOP ) ) • 
Y«-4 THEN GOSUB 570 



HEXT I 
' NEXT 
NEXT I 

= NEXT I 



RHCER<RC>' 
NEXT I 



STV*0 



CALL SOUND* -50 , -< L00P+5 ') , ) ■ • 
THEN 730 
P*P+100*LEVEL ■■•• CALL SCORE*P>; 



CALL JOYST*I>X,Y)' 



CALL ENDZONE 



CALL PATTERN* #2,1 12 >" CALL SOUND* »50,-3, 



0) 

580 IF LEVEL=3 THEN 650 

590 FÜR 1*1 TO 13 •>■■ CALL CO l NC* ALL , ST ) ■■ IF ST THEN 730 

600 CALL CÖINC*#i,#ii,45,8KP) 

610 NEXT I 

620 CALL LOCHTE* #1, 137, 49, #2,137,49)" CALL SOUND«; -5© , -5 , ) 

630 IF NOT SKP THEN 640 ELSE P«P+10*MR < = CALL SCORE* P> 

640 SKP*8 •■ ■■ RETURN 

650 SW*0 ■■■■ FOR 1*1 TO 10 ■< CRLL PRTTERN*#4,CH*2:** I/2-INT* I/2))+3)) 

6m CALL KEY*1,T,8)<: IF T*18 THEN GOSUB 690 

670 CALL. GOING* HLU ST >* « IF ST THEN 730 

680 HEXT I « < GOTO 626 
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690 IF SW THEH RETURN 

700 SM«! " CALL SPRITE-: #3, 80,2, 105,81,0, 120)» •■ CALL SOUND-.: -50, 110, 0.-7.0 >" CflL 

L D 1 8TANCEC # 1 , #4 , WT ) " I F WT > 11 880 THEN 720 

710 CALL DELSPRITEC #4)" CALL DELSPRITEC #3 )< • STV*0 " P«P+25*MR " CALL SCORE* P 

> 

720 CALL DELSPRITEC #3 >" RETURN 

730 CALL PATTERNC #1.44)" CALL SOUND-; -58 , -5 , > 

740 CALL DELSPRITEC #2)" CALL SOUND* -50, -6.0 > 

750 CALL COLÖRC#l,ll)" CALL SOUNDC -20,-7,0) 

760 CALL DELSPRITEC #1) 

770 RORtM " CALL RAÜERCRC) 

780 CALL PATTERN* #11. 120)" CALL COLÖRC#ll. 14>" STV*0 " CALL DELSPRITEC #4 ) 

790 IF RO0 THEN GOSUB 1180 " CALL MfllT(KO)" GOTO 450 

800 GOSUB 1180 «i CALL 8PRITEC#11, 129. 14. 137, 255. 0.0. #10, 124.4, 153, 121,0,0) 

810 CALL TITEL* B*, ), i ) 

826 RC*5 m f1R«l ii P»0 ii CALL SCORECP)- CALL RACERCRO" CALL ZONE* 1 ) 

S'30 GOTO 450 

840 CALL DI8TANCE*#l,#n,WT)< ■ IF NTO000 THEN RETURN 

858 CALL PATTERN* #11,84)" CALL C0LÖRC#11.S)" 8TV*I " RETURN 

060 RETURN 

870 CALL SPRITE* #4. 72. 13. 113. 248,0. -18)" STV-1 " RETURN 

880 CALL PATTERNC#4.CH-::L0GP+2))" RETURN 

890 CALL KEYU.T.S)" IF T«18 THEN 900 ELSE RETURN 

9Ö0 CALL SPRITEC#3.80,2. 121.81,8. 120)" CALL SOUNDC -58, 110,0,-7,0)" CALL DISTflN 

CEC # i .• # 1 1 , WT ) " I F WT >9000 THEH 920 

910 CALL PATTERNC #11. 120)" CALL COLÖRCttll. 14) " CALL DELSPRITEC #3)" P-P+3*MR . 

• CALL SCORE* P) 

928 CALL DELSPRITEC #3)" STV»0 " RETURN 

930 GOSUB 1259 " CALL CHAR<60,CH2*>" CALL Z0NE<4) 

940 FÖR LEVEL« 1 TO 4 

950 ON LEVEL GOSUB 1050,1060,1070,1080 

960 FÖR DELflY«! TO 30+10#MR 

970 FOR LOOP-5 TO 6 

980 CALL SOUNDC -300 ,-7,0)" CALL PATTERN* # 1 , CHC LOOP ) ) 

990 CALL JOYST*l,X,Y)" CALL MOTION* #1, ~2*Y,0:> 

1000 CALL CO I HC* ALL. ST)' ■■ IF ST THEN 1090 

1010 CALL POSITION**!, X,Y)" IF K> 150 THEN 1090 

1020 NEXT LOOP " NEXT DELAY " P*P+580*L£VEL " CALL SCORECP)" NEXT LEVEL 

1030 FOR 1*1 TO 4 " CALL DELSPRITEC #1 >" NEXT I " CALL CHHR* 60 , CH 1 * ) " CALL EN 

DZÖNE " GOSUB 1180 " CALL WHITCB*,)) 

1048 MR-MR+1 i i GOTO 450 

1050 CALL SPRITE-:; #2, 44, 15.. 107.240,0,-18)" RETURN 

m60 CALL PATTERN* #2, 60)" RETURN 

1070 CALL SPRITE* #3, 60, 9, 130,240,0,-18)" RETURN 

1080 CALL SPRITE* #4, 60>8, 117,240,0,-18)" RETURN 

1 090 CALL PATTERNC #1,44)" CALL SOUNDC -50 ,-5,0 ) 

1100 CALL DELSPRITEC #2)" CALL SOUNDC -50, -6,0) 

1110 CALL COLÖRC #1,16)" CALL SOUNDC -20 , -7 , > 

1120 CALL DELSPRITEC #1 > 

1130 RC-RC-i " CALL RRCERCRC) 

1140 CALL PATTERNC #11, 120)" CALL COLÖRC #11 > 14)" STV»0 " CALL DELSPRITEC #3, #4 > 

1150 IF RC>0 THEN CALL CHAR*60,CH1$>" GOSUB 1180 " CALL WAITCBC5)" GOTO 450 

1160 GOSUB 1180 ii CALL SPRITEC#11, 120, 14. 137, 255, 0,0, #10, 124,4. 153.. 121,0,85 

1170 CALL CHARC60.CH1SD" GOTO 810 

1180 CALL C0LÖRC9.5, 1,10,4.1)" CALL C0L0R*#25.5.#26.5.#27.5.#28,5>" CALL CÖLOR 

< #13, 5, #14, 5, #15, 5, #16, 5) 

1190 CALL DELSPRITEC #4)"' CALL PATTERNC #11, 120)" CALL COLGRCttll, 14,#17,4,#18,4, 

#19, 4, #28, 4) 

1200 CALL SPRITEC#11, 120, 14, 137, 255, 0,-15, #10, 124,4, 153. 121,0,-15)" RETURN 

1210 CALL CÖL0RC9.7, 1.10.4,1)" CALL C0L0RC#25,7.#26,7.#27.7,#28.7>" CALL DOLOR 

< #13. 7, #14, 7, #15,7, #16, 7) 

1220 CALL DELSPRITEC #10)" CALL SPRITE* #11, 120. 14. 137,255.0.-15)" RETURN 

1230 CALL C0LÖRC9. 7, 1,10,8,1)" CALL COLORC#17.8.#i8,8,#19.8.#20.8 ) 
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INS 

1240 CALL SPRITE<#11, 120, 14,137, 255,«, -15.. #10,124,8, 153, 129,0,-15)- STV«0 " RE 

TURN 

1258 CfiLL C0LÖRC9, 16,1,10,5,1)' ■ CRLL CÖLQRC#25, 16, #26, 16, #27, 16, #28, 16>« > CALL 

COL0R<#I3,16,#14,16,#i5,i6,#16,16) 

1260 CRLL DELSPRITE<#4)< * CRLL DELSPRITE<#2>" CRLL PflTTERNC #11 , 120 >« = CALL DOLO 

R<#11,14,#17,5,#18,5,#19,5,#20,5> 

1270 CRLL SPRITE<#i 1,120, 14, 137, 255, 0,-15, #10, 120, 14, 137, 121, 0,-15, #1,64, 11, 114, 

49 >" RETURN 

1280 SUB MOÜNRIVERCBK, >,KY> 

1290 DATA 1,1,6, 783, 30000, 1,2, 2, 987 , 1 174, 4, 880, 1046, 1 , 3, 3, 783, 987, 1 , 698, 880, 1 , 65 

9,783 

1300 DRTR 1,587,698,1,1,4,659,783,2,523,30000,1,3,3,783,987,1,698,880,1,659,783, 

1,587,698 

1. 3 1 Ö DRTR 1,1,4, 659 , 783 , 2 , 523 , 30000 ,2,4,1 , 587 , 30000 , 2 , 659 , 30000 , 1 , 2 , 6 , 523 , 30008 

1320 DRTR 1 , 1 , 4, 659, 30009, 2, 783, 30000/ 1,2,6, 1046, 30080, 1 , 3,4, 1 174, 30000, 2, 1046, 3 

0000,1,1,6,783,30080 

1330 DRTR 1,3,2, 783, 30000, 1 , 783, 987 , 1 , 698, 880, i , 659, 783, 1 , 587, 698, 1 , 1 .>6 f 6S9, 783, 

1,3,1,659,783 

1340 DRTR 1 , 523, 30000, 1 , 783, 987, 1 , 698, 880, 1 , 654, 783, I , 587, 698, 1,1,6, 659, 783, 1,2, 

f.j 440 . 523 

135Ö DRTR 1,4,2, 440, 698, 4, 349, 587, 1 t 6, 4, 349, 587, 2, 391 , 659 , 2, 1 , 12, 329, 523, 

1360 RESTORE 1290 

1370 RZ,STV~0 

1380 RERD K " IF K-0 THEN 1360 

1390 RERD INR 

1400 FÖR 1=1 TO K 

1410 FÜR J*l TO 6 

1429 STV*STV+1 <■ IF STV>flZ THEN RERD RZ,rii,H2 • ■• STV-t 

1430 CRLL S0UNDC400,Ml,0,rf2,0,BCJ,INR),6>' ' CRLL KEYCIjTjS>" IF 8<>Ö THEN 8UBEX 
IT 

1440 NEXT J : » NEXT I 

1450 GOTO 1380 

1460 SÜßEND 

1470 8MB ENDZONE 

1 480 DRTR 300 , 228 ,174, 300 , 246 , 1 95 , 1 200 , 26 1 , 220 , 600 , 293 , 246 , 300 , 329 ,261, 300 , 349 , 2 

93 

1490 DRTR 1200, 39 1 , 329, 300 , 329 , 261 , 309, 349, 293, 600, 391 , 329, 600, 440, 349 , 600, 493, 2 

93,1200,523,329 

150Ö CRLL MOTJ.ONC#l,0,0,#2,0,0,#4,0,0,#3,0,0,#10,0,8,#n,0,0>' • RESTÖRE 1488 

1510 FÖR 1*1 TD 13 " RERD L,M1,M2 <* CRLL SO!JND<L,Mi,0,ri2,0>^ HEXT I 

1520 SUBEND 

1530 SUB TITEL<BC >,KY) 

1540 CALL 8PRITE< #1,92, 16, 113, 96, #2, 10Ö, 16, 113, 128, #3, 92, 2, 111, 98, #4, 100, 2, 11 1,1 

30, #5, 60, 15, 137,45) 

1550 CRLL MÖONRIV£R<BC, >,KY> 

1569 FÜR 1=1 TO 4 i« CRLL DELSPRITEC#I >" HEXT I 

1578 SUBEND 

1588 SUB SCORECP) 

1596 DISPLAY AKI,19>HJ8ING "pmo#######" 'P 

1600 SUBEND 

1619 SUB ZONE<Z> 

1620 DISPLAY ATCl,l)SIZE<5>ilJSING "Abc #"'Z 
1630 SUBEND 

1640 SUB RRCER(RC) 

1650 CALL HCHRR<1,12,32,5> 

1660 IF RC«0 THEN 8UBEXIT 

1670 CALL HCHARa,12,89,RC> 

1680 SUBEND 

1698 SUB WRIT(B(, >) 

1700 CRLL SPRITE<#1 1,120, 14, 137, 255, 0,0, #10. 124, 4, 153, 121, 0,0, #5, 60, 15, 137, 49) 

1710 CALL MOONRIVERCBC, >,!> 

1720 SUBEND 

1730 SUB ASCII } 
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1 740 DRTR , 00030506060503 , 00C4flC2424fl4C4 , 00F79497F4 1 4F7 , 00D252D25F42C2 , 003F080R0 

B0H0R , 00FF00DE 1 2 1 2 1 E 

1 750 DRTR 00F500B5D59595 > 80CF88C80F00GF .- 80FE0 1 3DR5R5BD , 08D0 1 8B8 10101. 6009 1 1 07C 1 

01, 012 14086080103. 20040801 1882100C 

1 760 DRTR 0026C 1 08C304003 , 86 1 0400C600CC 1 1 8 .. 00 1 824242424 1 8 , 0008 1 808080898 , 00 1 8240 

408 1 03C , 00 1 824080424 1 8 , 00282828380808 

1770 DRTR 003C2038042418, 00182038242418, 003C040810101, 00182418242418, 001824241C8 

418, 0000303000303, 000030300030182 

1780 DRTR B03E00F0003E, , ^00000000000F0903,0F0F,00080.000000000E 

1 790 DRTR FCFF, 00000000008F4929 * FF2F408, 00000000000000E; FCFF, 102050F7FED8B1B, SB 

'ED7F0F050281 

1 800 DRTR C020D0FSF8DSED6E , ECD8F8F8D020C , 1 03050EFF3D0B 1 B , 0B3DFF0E05030 1 , C0E0D03 

8F8D8EC6E , EDD8F838D0E0C, 

181Ö DRTR 00000000609F7F9F, ,0000008800C0E8C,0E173F7FCF0E0E4F>3F0FiF3F7F7F3FlF,80 

00808, 80C0C0EFFEFCF8F 

1829 DRTR ,007S48F8FCFE44, , , 1B24242820R04, IF2828180F0R291/ 80808788889867 

1830 DRTR 0086308E1 1 1 131CF, FFFFFFFFFFFFFFFF, 00F888136282FB, 800080D65951D1 , 000009 
74704074, 00001CE3R2R21C, 0088000E3059900F 

1 840 DRTR 0000D824242322 * 000000384478C03C , 0408 1 43F22227F7F , FEFFFF , 000000E02020F0 

FC, 7FFFFF , FFFFFFFFFFFFFFFF 

1850 DRTR 00F080S7F414F7^000000BD2523BD^000000SD9C101D^000000S4927C92S4, 0000000 

0010E01 , 0000002R493E492R 

1860 DRTR ,00000044RR92HR44.000001020588. 0000002255493522, ,01070D1F3F77FFFB, 

1870 DRTR 80F0F87CEEBEFFEF. FFFFFFFFFFFFFFFF. FF7F3F1F07, FFFFFFFFFFFFFFFF. FFFEFCF8 

E,000103070F1F3F3F,7FFF 

1880 DRTfl C0E0F0E0F8F8FCFE,FEFF,FF7FFF7F7F?F3F1E, IC0C,FFFEFCF8FCFCF8F,F06, 000008 

0101010307 

1890 DRTR 07070F1F3F7FFFFF/00008080C08030C,E0E0F8F8FCFCFEFF,FFFF7F3F1F070301^FF 

FFFEF8F0E0C03,, 

1900 RESTORE 1740 

1910 FOR 1*32 TÖ 143 <» RERD C* '■ ' CRLL CHRR< I * C* > « ■ NEXT I 

1920 SUBEND 







Autorennen gibt es viele. 

Wir unterscheiden hierbei zwischen 2 
Arten: Die erste Art simuliert ein Au- 
torennen in der Draufsicht der Straße 
und hat eine schlichte Grafik. Solche 
Autorennen sind schon mehrfach als 
BASIC-Programme für die verschie- 
densten Computersysteme veröffent- 
licht worden. 

Bei der zweiten Art handelt es sich um 
Autorennen, die das Gefühl, im Renn- 
wagen zu sitzen, perfekt simulieren. 
Das Rennen läuft so ab, als ob man 
selbst am Steuer sitzt. Diese Autoren- 
nen bieten eine perfekte Grafik und 
einen ausgezeichneten 3 D-Effekt. Lei- 



SLICKS 
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****&«*• 




der handelt es sich hierbei um Maschi- 
nenprogramme, die meist für teures 
Geld auf Moduln zu kaufen sind. Dies 
alles ändert sich jedoch, schlagartig 



mit diesem Programm, denn hier 
kommt SLICKS, das Autorennen der 
zweiten Art, als BASIC-Programm. 
Tippen Sie das Programm ein, und 
nehmen Sie Platz in Ihrem TI Formel 
1 -Rennwagen. Geben Sie den Befehl 
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RUN, und in ca. einer Minute wird das 
Rennen beginnen. 

Nachdem das Titelbild erschienen ist 
und die Melodie erklingt, drücken Sie 
den roten Aktionsknopf am linken 
Joystick, und das Rennen beginnt. 
Steuern Sie Ihren gelben Rennwagen 
mittels des Joysticks nach rechts oder 
links. Weichen Sie hierbei allen mögli- 
chen Sachen, die Ihnen entgegenkom- 
men, aus. Die Geschwindigkeit stei- 
gert sich in 1 1 Stufen, die an der Höhe 



100 

110 

120 
138 
140 
150 
168 
170 
180 
190 

?m 

210 
2?Ö 



des Motorengeräusches zu unter- 
scheiden sind. Haben Sie einen Ge- 
genstand erforderlich umfahren, so 
werden Ihnen hierfür Punkte gutge- 
schrieben. 

Wenn Sie jedoch einen Unfall bauen 
oder von der Straße abkommen, so 
wird Ihnen ein Auto abgezogen. Zu 
Spielbeginn stehen Ihnen 3 Fahrzeuge 
zur Verfügung,, mit denen Sie das Ren- 
nen bestreiten. 

Vorstehendes Bild zeigt eine Zusam- 
menstellung der verschiedenen Situa- 
tionen auf der Straße. Es können Ihnen 
also entgegenkommen: 
%%%%%%%%%%%%%%%%%%%%%% Rote Rennwagen. Diese sind am ein- 



SLICKS % fachsten zu umfahren. 

.-.-.. -«.. . — . ,.g G r ü n e Ölflecken. Hier wird die Sache 

% schon etwas schwieriger. 



TI 99/4 H 
Exttnätcf BRSIC 

< c )1984 vTröriicsof t 



Blaue mit Wasser gefüllte Schlaglö- 
cher, die am schwierigsten zu beherr- 
schen sind. 

Je nach Geschwindigkeit werden Ih- 
nen an Punkten gutgeschrieben: 
Rennwagen: 1 bis 1 1 Punkte 

Ölflecken: 2 bis 22 Punkte 

Schlaglöcher: 3 bis 33 Punkte 

Nachdem Sie alle 3 Rennwagen in die 
„ewigen Jagdgründe" befördert haben, 
so erscheint wieder der Titelschrift- 
zug, und die Melodie erklingt. Jetzt 
können Sie durch Druck auf den roten 
Aktionsknopf ein neues Rennen be- 
ginnen. 

Beim Spielverlauf sind keine Beson- 
derheiten zu beachten. Sogar die 
„ALPHA LOCK" Taste kann eingera- 
stet sein. 



%%%%*%%%KXX%%%%%%1($%%% 



OPTION BASE I 

DIM BC3.7>.PZ(4)/FK<4>.ZH<4>. 

DBTR 195,261,329,164.220,261, 
,174,220,261 
230 RIESTORE 220 

FÜR 1*1 TO 7 » « FÜR (Ol TO 3 ' 

CALL CLERR • '• CALL SCREENC 9 >'" 



174,220.293, 195, 246.349, 184,261,293.207,293,329 



240 
£50 
£60 
279 
288 
36 

300 

310 
329 
330 

340 
3m 



READ KK.IJ" NEXT K > * 
CALL CÖLOPX0,9,9>: ' CALL 



NEXT I 

HCHHRU, 1,38,768) 



DATA 70,90, 106, 121. 1,3.6, 1Ö, 199. 121. 141, 169 



FOR J>1 
FÖR 1*1 
FOR 1*1 
FÖR 1*1 



TO 
TG 
TO 
TO 



4 
4 
4 

14 



CALL GRAFIK 



READ PZ< I > ' « NEXT I 
READ FK< I ) • : NEXT I 
READ ZH<I>» i NEXT I 

• CHLL COLORC 1,1,1) = 

CALL BILD 



« RRNDONZZE 
NEXT I 



CB$~ " DR828200'DR0R0HDE0E04@4000404046EDR82820083g282DH5BS09000 1 B8 1 4 1 5B " 

CS$= H 000038100000000ß00i038I0000000@000107C3800000000000038?CFEFE?C" 

FOR 1*12 TO 21 '■'■ CALL HCHffltt 12, Ii 1+36)" NEXT I 

CALL CÖLOR<0, 6. 6, 1,4, 2, 2, 13, 6, 5, 16, 2,6, 16, 2, 7. 16, 2, 8, 16, 2, 9, 16, 2, 10, 16, 2, 11, 
16,2,12,16,2) 

360 CALL C0L0R( 13, 13, 4, 14, 4, 4, 3. 16, 6, 4, 16,6)= = CALL HCHARX 1, 1,32,32)" CALL C2 . 
• CALL TITEL»; CB$, CS*,Bc:, ))" CALL RECHRR " GOSUB 1000 
370 CALL SPRITES #1, 135, 11,175.121) 
380 SPEED* 11 
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So machen Sie mehr aus Ihrem COMMODORE 64: 

Tips & Tricks 




DER BESTSELLER - BAND 1 

64 Tips & Tricks, das mit über 70.000 Exemplaren meistver- 
kaufte data Becker BUCH, ist eine hochinteressante Samm- 
lung von Anregungen zur fortgeschrittenen Programmierung 
des COMMODORE 64, POKE's und andere nützliche Routinen, 
interessanten Programmen. Aus dem Inhalt: 3D-Craphik in 
BASIC - Farbige Balkengraphik - Definition eines eigenen Zei- 
chensatzes - Tastaturbelegung - Simulation der Maus mit 
einem Joystick - BASIC für Fortgeschrittene - C-64 spricht 
deutsch - CP/M auf dem COMMODORE 64 - Druckeranschluß 
über den USER-Port - Datenübertragung von und zu anderen 
Rechnern - Synthesizer in Stereo - Retten einer nicht ord- 
nungsgemäß geschlossenen Datei - Erzeugen einer BASlC-zeile 
in BASIC - Kassetten puff er als Datenspeicher - Multitasking 
auf dem COMMODORE 64-POKEs und die Zeropage- GOTO, 
COSUB und RESTORE mit berechneten Zeilennummern, INSTR 
und STRING-Funktlon - Repeat-Funktion für alle Tasten. Alle 
Maschinenprogramme mit BASic-Ladeprogrammen. 



DATA BECKERS 
GROSSE 
64er 
PROGRAMM- 
SAMMLUNG 



:■::: :■' r: ^rc'<^n nuci 



DER 
COMMODORE 84 

UND 
\DER REST DER WELT 

eiw o*» «cuen buch 



SIMONS 

BASIC 



DATA BECKERS 
GROSSE PROGRAMM 
SAMMLUNG ZUM 
COMMODORE 64, 
250 Seiten, DM 49,- 



DER COMMODORE 64 
UND DER REST DER 

WELT, 220 Seiten, 

DM 49,- 



DAS TRAININGSBUCH 
ZU SIMONS BASIC, 
380 Selten, DM 49- 



***$* Kapp 
Lettner ™ 



r S4 



[noch 
mehr 



BAND 2 



04 Anwende, 



64 Tips & Tricks ist eine echte Fundgrube für jeden COMMODORE 
64 Anwender. 64 TIPS & TRICKS, 1984, über 300 Selten, DM 49.- 

JETZTNOCH MEHR TIPS & TRICKS - 
BAND 2 

Auch der zweite Band von 64 Tips & Tricks dürfte sehr schnell 
ein Bestseller werden. Das Buch enthält eine Fülle hochkaräti- 
ger Programme, Anregungen und Routinen: ein umfangrei- 
ches Kapitel über Softwareschutz - Befehlserweiterungen 
und wie man sie macht - Tips & Tricks zur Programmierung 
von superspielen - Zeiger und deren Manipulation - mehr 
übers Interrupt-Handling mit vielen Beispielen - erweiterte 
Hardware-Möglichkeiten - Betriebssystem ins RAM kopieren 
und dort manipulieren - sowie viele weitere Programme, 
Befehlserweiterungen und nützliche Routinen. Wer gerne pro- 
grammiert und mehr wissen will über den commodore 64, 
der braucht dieses neue Buch. 
64 tips & tricks Band 2, ca. 250 Seiten, DM 39.- 




;<r 



COMMODORE 64 
FÜR TECHNIK UND 
WISSENSCHAFT, 
300 selten, DM 49,- 



DAS IDEENBUCH 
COftlMODORE 

240 Seiten, D 
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Diese und viele weitere data Becker Bücher gibts im Buchhandel, im Computer- 
fachhandel und in den Warenhäusern. Dort gibts auch den kostenlosen, großen 
DATA BECKER Katalog mit der großen Buch- und Softwareauswahl rund ums 
Thema Computer. Katalog auch kostenlos direkt von data BECKER. 
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390 V*( RND*2*SPEED-SPEED ) 

400 CALL C2 

410 CRLL SOUNDC-4250, 10*3PEEP,0,~6.5) 

420 CALL SPR I TEC #2 , 1 32 , 9 , 99 , 1 2 1 , SPEED , V ) 

430 FÖR 1=3 TO 4 

440 CALL JOYST<l,X,Y)" CALL f1ÜTIONC#l,0,3*X): ' CRLL Cl n CALL PAUSE« 42-2*SPEED 

450 CALL PÖSITIÜNC#I,Y,X): < IF <X>185)+<X<37)THEN 7TO 

1™ r?H~ F ;S!H7? W 5- #2 ' X -' V>!! IF X>-PZ<I>THEN CALL PATTERNC #2 ,1 3 1 + 1 ) 

470 CHLL JOifSTU,X,Y><» CALL M0TI0NC#1,B,3*X). '< CALL C2 <« CALL PflUSE< 42-2#SPEED 

Hl rSth P M Ulrm * 2,X ' Y>:! IF K>*PZ< I >THEN CRLL PATTERNC #2, 131 + 1 >- GOTO 500 

490 GÖTU 44ü 

500 HEXT I 

510 P-P+CSPEED-10) 

520 CALL PEEKC -31877, CN> <■ IF CCN AND 32)*32 THEN ?38 

53S S-. L EU;^ L DELSPRITE<#2>.- CALL JöYSTU,X.. Y>« : CALL MOTION<#1,0, 3*X> 

340 CALL PUNKTEN P ) 

550 8PEED-SPEED+.1 " IF SPEED >Z1 THEN SFEED*21 

560 ON INT<RND*2.5)+1 GOTO 390,570,848 

570 V«<RND*128)-64 ' ■ SH»V/10 

580 CALL C2 

590 CALL 80UNDC -4250, 10*SPEED, 0,-6,5) 

600 FOR 1*1 TO 3 STEP 2 

610 CALL J0Y8TC1,X,Y)= « CALL M0TI0NC#l,e,3*X)i i CALL Cl 

6?0 CALL P08ITIÜNC#i,Y,X).' IF <X>185)+CX<57)THEN 730 

638 CALL 8PRITE<#2,139+I,8,ZHa>,121+FKa)*8H) 

640 CALL JOYSTU,X,Y)" CALL MöTION<#I,0,3#X >> • CALL C2 

650 CALL SFRITE<#2, 140+1, S,ZHC 1+1 >, 121+FKX 1+1 )*SH) 

660 NEXT I 

670 P«P+3*C8PEED«10) 

SS? S2H- P|EK<-31877,CN>'« IF CCN AND 32 7*32 THEN 730 

700 CALL PUNKTE^ DELSPRITE( * 2>: ! CRLL JÖYSTC i,X,Y>- CALL MOTIÖNC#1,0,3*X) 

710 SPEED*SPEED+1 -• IF SPEED>21 THEN SPEED*21 
720. GOTO 390 

££ ^St L T M 2 T ™ r :* ij0 I 0)!! CHLL »EL8PRITE^#2>.. CRLL C0L0R<#1,1B> 
740 FOR 1*0 TO 15 STEP 2 n CALL SOUND<-100,-7, I) 

SÜS P£.i*J G0SUB 80fei ' 8 ^'800,808,810,810,810, 810,820,820,320,820,830,830,830,830 
770 CALL DELSPRITE<#1> 

51g SC?"^: 1 !! CflLL flUTO<ATO>i. IF ATÜ*0 THEN 1010 
r5s>0 GOTO 370 

800 CALL COLÖR<#1,10> ; . CALL PATTERNC #1, 33 >< ■ RETURN 

11^ 95!+' COLOR<#l,ll)t. CALL PATTERNC #1,34)»« RETURN 

82g CALL COLORt #l,12>u CRLL PATTERNC #1,38)' ■ RETURN 

830 CALL C0LDRC#1,I5)m CALL PATTERNC #1,39): , RETURN 

840 V«CRND*128)H54 '■ > SH*V/18 

850 CALL C2 

868 CALL 8ÖUND<-4250,10*SPEED,0,-6,5) 

670 FÖR 1=1 TO 3 STEP 2 

880 CALL ■ J0Y8Ta,X/Y)n CALL' NOT IONC#I,0,3*X)* < CALL Cl 

890 CALL POSITIONC#i,Y,X)^ IF CXM85)+CK<57)THEN 730 

900 CALL SPRITEC #2, 123+1, 3, ZHU ), 121+FKC I >*8H> 

910 CALL J0Y8TCi,X,Y)= i CALL M0TIONC#1,0,3*X): < CALL C2 

920 CALL SPRITE* #2, 124+1, 3,ZH« 1+1 ), 121+FKC 1+1 )*8H) 

SM NEXT I 

940 P»P+2*C5PE£D~10) 

950 CALL PEEKC -31877, CN). . IF CCN AND 32)*32 THEN 730 

970 CALL PUNKTE<P)' L DELSPRITE<#2>? '' CRLL JO*ST<.i,X,Y>. ■ CALL MOTIONC#1>0,3*K) 

980 8PEE0«8PEED+1 « i IF SPEED >21 THEN SPEED-21 
990 GOTO 390 
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^ Das sollte ihr erstes Buch zum commodore 64 
'©sein. Eine sehr leicht verständliche Einführung 
in Handhabung, Einsatz, Ausbaumöglichkeiten 
und Programmierung des C64, die keinerlei 
Vorkenntnisse voraussetzt, viele Abbildungen, 
Fotos und nützliche Anwendungsbeispiele 
ergänzen den Text. Auch als Orientierung vor 
dem 64er Kauf gut geeignet. 64 für ein- 

STEIGER, ca. 200 S., DM 29,- 

(2) Dieses über 65.000mal verkaufte Standard- 
werk zum COMMODORE 64 braucht jeder ernst- 
hafte Anwender. Alles über Technik, Betriebs- 
system und fortgeschrittene Programmierung 
des C64. Mit ausführlichem ROM-Listing, sorg- 
fältig dokumentierten Originalschaltplänen 
zum Ausklappen, zahlreichen Abbildungen, Schaltbildern, Blockdiagrammen 
und natürlich nützlichen Programmen. Mit diesem unentbehrlichen Buch 
lernen Sie Ihren C64 erst richtig kennen. 64 INTERN, ca. 350 S.. DM 69,- 

(3) Der Bestseller zur Graphikprogrammierung des COMMODORE 64 vom Autor 
der berühmten Supergraphik. Für Einstelger, Fortgeschrittene und Profis. 
Bringt alles von den Grundlagen der Graphikprogrammierung über Sprites, 
High-Res-Graphik, Multicolor, Zeichensatzprogrammierung bis hin zu drei- 
dimensionaler Graphik und CAD. unzählige Superprogramme und Routinen 
zum Abtippen. DAS GRAPHIKBUCH ZUM COMMODORE 64, 295 S., DM 39.- 

(4) Das Superbuch, das ihnen zeigt, was alles in ihrem Rekorder steckt, 
informiert detailliert und leicht verständlich über Datasette und cassetten- 
speicherung. Mit absoluten Spitzenprogrammen: Autostart, Catalog (sucht 
und lädt automatisch», Backup von und auf Floppy, Save von Speicherberei- 
chen und das Tollste: ein neues cassetten-Betrlebssystem mit dem lO-20mal 
schnelleren Fasttape. Außerdem weitere nützliche Hinweise (Kopfjustage, 
Kontroll-Lautsprecher) und Programme. DAS CASSETTENBUCH ZUM 
COMMODORE 64 und VC-20, ca. 180 S., DM 29,- 

® Das über 50-OOOmaf verkaufte Standardwerk zur Floppy VC-1541. Alles 
über Diskettenprogrammierung für Einsteiger, Fortgeschrittene und 
Profis. Neben grundlegenden Informationen zum DOS, zu den 
Systembefehlen und Fehlermeldungen stehen mehrere Kapitel zur 
praktischen Dateiverwaltung mit der Floppy. Umfangreiches, 
dokumentiertes DOS-Listing. Dazu eine Fundgrube verschieden- 
ster Programme und Hilfsroutinen, die das Buch für jeden 
Floppy-Anwender zur Pflichtlektüre machen. DAS GROSSE 
FLOPPY-BUCH. ca. 320 S., DM 49,- 



i Mit diesem Buch meistern Sie jedes Drucker-Problem. 
Ob Sekundäradressen, Schnittstellen, Steuerzeichen, 
formatierte Datenausgabe oder Graphik-Hardcopy, 
alles wird hervorragend erklärt, selbstverständ- 
lich wieder viele nützliche Programme zum Ab- 
tippen. Außerdem wichtige Hilfen zur Drucker- 
anpassung, ein Betriebssystemlisting des 
MPS 801 und ein eigenes Kapitel zum VC-1520. 
Mit diesem Buch holen Sie das Optimum aus 
Ihrem Drucker heraus. DAS GROSSE 
DRUCKERBUCH, Über 300 S, DM 49.- 
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1000 P«0 m RTÖ»3 «« CALL PUNKTECPV < CALL HUTCKHTO)" RETURN 
1010 CRLL TITEL* CB»,C8»>BO> 

1029 GÖSUB 1009 

1030 GOTO 370 

1040 SUB POENKBCj ),KY) 

1050 DRTR 2,1,3,311, 30000, 3, 329, 30000, 2,2,6, 448, 30808, 1,3,1, 293, 30000, 1 , 329, 3080 

0,1,391,30000 

1066 DHTR 1 , 4, 1 , 349, 30008, 1 , 329, 300Ö0, 1,311, 30000, 2, 1,1, 349, 30000, 5, 329, 30000, 1 , 

5, 3, 369, 36000, 1 , 1 , 3, 391 , 30000 

1078 DRTR 2, 6, 5, 523, 30000 , 1 , 493, 30000, 1,2,1, 415, 30000, 1 , 440, 30000, 1 , 659 , 523 

1080 DRTR 1.5, 2.587, 493, 1,523, 448, 2, 4,1, 523, 440,5, 493,391 

1090 DRTR 1,1.3,659,523,1,2,3,659,523,1,7,1,659,523,1,587,493,1,493,415,1,2,1,52 

3,440 

1100 DRTR 1,587,493,1,659,523,2,3,6,880,698,2,4,1,880,698,1,783,659,2,1396,830,1 
,1318,783,1,1174,698 

1110 DRTR 1,2,3,1046,659,1,7,3,1046,587,2,1,1,1846,659,1,987,30000,1,659,523 

1 1 20 DRTR 3 , 783 , 659 , 2 , 4 , 1 , 783 , 30000 , 1 , 587 , 30000 , 1 , 783 , 30000 , 1 , 698 , 30000 , 1 , 659 , 30 

000,1,622,30000 

1130 DRTR 2,1, 1,698, 30000, 5> 659, 30000 

1140 DRTR 1,1,3,659,523,1,2,3,659,523,1,7,1,659,523,1,587,493,1,493,415,1,2,1,52 
3,440 

1150 DRTR 1,557,493, 1,659,523,2,3,6,880,698,2,4, 1,880,698, 1,783,659,2, 1396,880,1 
,1318,783,1,1174,698 

1160 DRTR 1.. 2, 3, 1046, 659, 1,7, 3, 1046, 587, 2. 1.1.1046. 659. 1.987. 30000. 1,659. 523 
1170 DRTR 3, 783, 659, 2, 4, 1,783, 30000, 1,587, 30000, 1,783, 30800, 1.698, 30000, 1,659, 30 
000,1,622,30000 

1180 DRTR 2,1,1,698,30000,5,659,30000,0,0 

1190 RESTORE 1050 

1206 R2,STV,CL-0 

1210 RERD K t » IF K-0 THEH 1190 

1220 READ INR 

1230 FOR 1*1 TO K 

1240 FOR J«l TO 3 

1250 CRLL Cl 

1260 STV*STV+1 '• IF STV>RZ THEH RERD RZ,m,M2 « ■ 8TV*1 

1270- CRLL 8OUHD<420,r'Tl,0,ri2,0,BCJ,INR>,6>^ CRLL KEYC1,T,B><< IF 3O0 THEH 8UBEX 

1280 CRLL C2 

1290 NEXT J i • NEXT I 

1300 GOTO 1210 

1310 8ÜBEHD 

1320 SUB RECHRR 

1 330 DRTR 00 l 824242424 1 8 , 0008 1 8080888Ö3 , m 1 82 49408 1 03C , m 1 824080424 1 8 , 0028282838 

0808, 003C2038042418, 00182038242418 

1340 DRTR 003C0408I0101, 00182418242418, 001824241C8418 
1350 RESTORE 1330 

1360 CRLL HCHRRU2, 12,30, 10)- CRLL C0L0RX3, 11,2,4, 11,2) 
1370 FOR 1*48 TO 57 -. •• RERD C* :■ CRLL CHRRU,CS>" NEXT I 
1380 SÜßEND 
1390 SUB PUNKTEN P) 

1400 DISPLAY RK1,23)SIZE(6) = USING "#•####" ip 
1410 SÜßEND 

1420 SUB RUTCKRTO) 

1430 CRLL HCHflRC 1,3,32,3) 

1440 IF flTO-0 THEN SUBEXIT 

1450 CRLL HCHRR(1,3,59,RT0:) 

1460 SUBEND 

1470 SUB TITEL<C1*,C2*,8(,)> 

1480 CALL CHRR<124,C1$) 

1490 PS=97 . . FOR 1-1 TO 4 " CRLL SPRITECttl, 123+1 > 10, 73, PS)- P3-PS+16 ■ ■ HEXT 

1500 CRLL POEMECB(, >,1) 

1510 FOR 1 = 1 TO 4 . > : CRLL DELSPRITEC#I >■ * NEXT I 
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1520 CALL CHRR<1Z4,C»> 

1530 SUBEND ,.„.,„„„ <,- „ « 

1540 SÜB Cl «» CALL CÜLORX 7, 16,2,8, 16,2.11.. 16, 2,5,2. 2,6, 2,2,9,*:, <M0; 2, 2, 1^,2,^, 

13, 13. 4« 14,4 -4 > : : SUBEND 

1550 SÜB C2 =' CALL C0L0RC5, 16,2,6, 16,2,9, 16,2, 10, 16,2, 12, 16,2,7,2,2,8,2,2, 11,2, 

2,14,13,4,13,4,4)^ SUBEND 

1560 SÜB PflUSE<Z>" FOR I«! TO Z ■■ HEXT I »« SUBEND 

1370 SUB BILD 

1580 DATA < %-s "M tt. %-s >+-' -..)+< #-/ )+-A * )+ 

1590 DRTfl #############*Vvi,^;-i#############. ############* % AxzecK############, #### 

1600*DBTfl%##M^ 

IßlÖ DATA #######4aRWMWWWhTWMHNWIH5fi#######, ######*BCWI4WWWWiwWI^WWWKJX######* #### 

#*DE WWWWWWW j nWWWWWWWMLX##### 

162Ö DRTfl ####$FGWWWNPJWWWkoWWWWWWWWON;<###ft 

1630 DRTfl 15, 13, 128, 15,20, 129, 16, 11 , 136, 16,22, 136, 18,9, 130, 18,24, 138 

1640 DRTfl 19,9,131,19,24,131,22,5,138,23,5,139,22,28,138,23,28,139 

1G50 DRTfl 7,4,63,3,7,61,5, 10,60,5, 12,62,6, 19,61,4,23,60,4,25,62, r,^63 

1660 RESTÖRE 1580 

1679 FOR 2=14 TO 24 ■ • RERD C$ < : FÜR S«l TO 32 

1680 CALL VCHRR<Z,S,flSCXSEG$CC$,S,l>>> 

1690 HEXT S « '■ NEXT Z „ _ iif _ w T 

1700 FOR 1*1 TO _12^i» RERD Z,S,C " CALL VCHHR<Z,8,C:>" NEXT I 

1728 FOR ""1=21 TO 2s'" RERD Z,S,C <• CALL 8PRITEC#I,C, 16,8*Z,8*S>= « NEXT T. 

1730 SUBEND 

17d.Fl '-'IIP TRAFIK 

1750 DATA ", 42241 8BDFF7E3C5R, 422418RDFD563C4R, FFFFFFFFFFFFFFFF, FFFEFCF8F0E9CS8, FF 

7F3FlF0F070381,022010fl93D502842 ____ ^ 

1 760 DATR 022000882 1 1 00842 , 88 1 C3C7F7FFFFFFF , 8307 1 F 1 F3F7F7FFF , 4070F8FUFEFFFFFF , C8 

E0F8F8FCFEFEFF , , 0000000C 1 F7F7FFF ^ . ~ -,,- . , , ^, „«, ,. .. P 

1 ??& DATA , 000000 0000C0F8FE , 00030506060503 , 00C4RC2424R4C4 , 00F794y7F4 1 4F7 , 00D^D 

25F42C2, 003F080R0B0R0R 

1 780 DATA 00FF00DE 1 2 1 2 1 E , 09F500B5D59595 , 00CF00C8OF80CF , 00FE0 1 3DR5H5BD , 00D0 1 0B8 1 

101 , 0800393000303, 0010387CBAFE32 

1790 DATA 010F3FFFFF7F0C, 00187C7EFF7F3E 1 , 0080C0ECFE7F0E04/ 00087C3E1F0E04, 0103078 

F1F3E7EFC,F0E0C08,0103070F1F3F7EFC _™ 

1 300 DATA F8F0EOC08 * 1 03070F 1 F3F7FFE , FCF8F0E0C08 , 1 03970F 1 F3F7FFF , FCF8F8F0EÖC08 , 

S0C0E0F0F87C7E3F , 8F07030 1 

1810 DATA 80C0E0F0F8FC7E3F, 1F0F070301,80C0E@F0F8FCFE7F,3F1F0F070301,30C0E0F0F8FC 

FPFF , 3F 1 F 1 F0F0703 01,01 03870E 1 C3878F 

1820 DATA C08,0103070FIE3C78F,E0C08,0103070FIE3E7CF8, 0044444444444438, 0102040C18 

1830 "'DATA 80C0E070381C1E0F,0301,80C0E0F0783C1E0F, 070301, 80C0E0F0787C3E1F, 0038080 

868080838, 8040203Q180C0603 

1848 DATA 000000000000807C, 0103060C183870E, 8, 0103070E1C3B70E, C08, 80C060301S1C0E0 

7.01 

1858 DATA 80C0E070381C0E07,0301, 1F1F1F1F1F1F1F1F, 1F1F1F1F3F3F3F3F,3F3F3F3F7F7F7F 

7F , 7F7F7F7FFFFFFFFF , F8F8F8F8F8F8F8F8 

1 860 DATA F8F8F8F8FCFCFCFC , FCFCFCFCFEFEFEFE , FEFEFEFEFFFFFFFF , 0303930307070707 , 07 

07070707070F0F, 0F0F0F0F0F0F0F0F* C0C0C0C0E9E0E0E 

1 870 DATA E0E0E0E0E0E8F0F , F0F0F0FQF0F0F0F , 0000000 101010101, 000009808080808 ,01010 

10101010101, 0303030303030303 , 8080808080130808 

1880 DATA C0C0C0C0C0C0C0C, 001010100010101, 003008080408083, 0000205408, ,0000103810 

38 1 , 008W08 1 CS8 1 C08 

1A98 DATA 00000018183C183C,7E183C181818,000018183C18,00Ö0183C183C3C,00183C3C5A7E 

5fl. 1«5A7E5A18BDFF99,00183C183C7E1818 

1900 DATA , 183C7E18183C7EFF, 18 183C7EFF1 81818, 0008081008* e0040ElF0E04,08.142E5F2El 

408,2854AE5BAE5428 

1910 RESTORE 1750 

1920 FOR 1*32 TO 143 - RERD C* *' CALL CHAR<I,C*>" NEXT I 

1930 SUBEND 
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Computer-Börse 



Verkäufe 



Atari 800XL. Software Liste 
anfordern gegen 80-Pf.-Brief- 
marke. Textverarbeitungs- 
programm. Hans-Jürgen 

" Brand, bei Wulff, Keselstr. 21 , 
3000 Hannover 91 



Anti-Brumm-Heiz- Adapter im 

formschönen Slim-Line-Ge- 
häuse für den geplagten 
Spectrumfreak: 20 DM 
(Scheck o. Schein). Info ge- 
gen 80 Pf Rückporto. T. 
Schröer, Hohlstr. 11, 6791 
Steinbach 

Verkaufe Reset-Taste für 

C64 und VC 20, ohne Ein- 
bau, nur einstecken. 1 Stück 
10- DM, 3 Stück 20- DM 
(Schein), Turbotape für C 64 
auf Kassette für 30- DM, 4 
eigene Spiele K. 10- DM. 
Best, bei S. Valentine Frank- 
furter Str. 285, 63 Gießen 



Hallo, Texaner! TI-99/4A Soft- 
ware (Superspiele/Spielege- 
nerator etc.) bei: A. Ertl, Mais 
66, 8497 Neukirchen. Liste 
mit tollen Sachen gegen Frei- 
umschfag! Sofort schreiben. 



Plattenarchiv 20,- DM 

Diskhilfe 20,- DM 

P. Schulz, Eichendorf falfee 
6, 3352 Einbeck 1 



M. Wolf, Tel. 06 41/414 50, 
tausche ca. 600 Programme 



Apple II: E. T. (Aliesierner) o. 
Geldspieler. Tamm, Solmsstr. 
43, 1 Berlin 61 



Apple II Super-Disketten-K + 

ility m. fantastischen Möglich- 
keiten. Info g. Freiumschlag 
bei: L. Düning, Kurze Brehe 

10, 4500 Osnabrück 



Verk. ZX 81 (Fol.-Tast. Def.) + 
1 6K + Netzt. + Koaxkabel + 
Rec.-Kab. + deut. Anltg. + 
Buch M.80 Prgr., zus. 120- 
DM. Chr. Lenk, Langlütjen- 
sand 4, 28 HB 66, Tel. 04 21 / 
58 73 26 



Verk Colour-Genie 32K, mit 

original Software NW 600-, 3 
Handbüchern u. Datenrecor- 
der für nur 550 ,-. Tel, 47 21 

/ 4 72 80 



Sinclair ZX Spectrum 48 K 
bei uns nur DM 448,-, Sin- 
clair QL DM 1798,-, Micro- 
drive u. interf. je DM 199,- 
bei Computer-Store, Herze - 
brocker Str. 46, 4830 Gü- 
tersloh, Tel. 52 41/1 20 80 



Verk. Tl 59 + Drucker 

PC100C + Anleitungen 4- 

Netzteii + 60 Magnetk. + 2 
Rollen Papier, zus. für 450- 
DM. W. Lenk, Langlütjensand 
4, 28 HB 66, Tel. 04 21 / 
58 73 26 



ATARI 600XL + Floppy preisg. 

abzugeben. Tel. 06 21/ 
56 22 41 , am Wochenende 



ZX81.rn.gr. Tast., 16 KRAM, 
64 K RAM, Drucker ZX, 3 

Software-Bücher, Preis VB 
570-, Tel. 53 02/18 51 



Verkaufe: TI-99/4A 4- Ext. Ba- 
sic + Joysticks + Recorder +• 
Kabel + Tl-lnvader 4- dt, 
Handbuch 4- ca. 70 PGM. + 1 
Tl-Magazin + Chip-Buch. VB: 
700- DM. Tel.: 02 21 / 
60 76 76 



Achtung: TI99/4A 4- Mini Me- 
mory, Editor/Assembler/Dis- 
assembler. Paket nur 30,— 
DM in Scheinen an T. Mielke, 
Falkenkamp 17b, 2000 Nor- 
derstedt 1 



Amateurfunk- und andere 
Programme für Spectrum 
u. ZX 81. Ausführliche Li- 
sten gegen Rückporto. Bit- 
te Computertyp angeben! 
Michael Schramm, Freilig- 
rathstr. 5, 2300 Kiel 1 



nnaannaannDGnannnD 

° ZX-Spectrum Soft- und n 

□ Hardware-Neuheiten aus H 

□ England: Monty Mole, Mug- □ 

□ sy, Sabre Wolf usw. -I- n 
n Hardwareartikel. Anfrage □ 
^ lohnt sich. Gratiskatalog ° 

□ bei: Dremasoft, Im Rosen- H 

□ hang 6, 53 Bonn 1 Q 

□QDDnnDDODDDaDDDDD 



Tl 99/4 A Ext.-Spiel nur für Er- 
wachsene - bitte Alter ang. 
zum absoluten Preishit von 
nur DM 10,- im Umschl. an T. 
Karbach, Remscheider Str. 
18, 5650 Solingen 1 



Wenn ihr „Mugsy von Melbour- 
ne House" wollt, dann kriegt 
ihr es für 35 DM (vielleicht) 
noch bei: Jan Weigner, Carl- 
Schurz-Str. 1 1 , 2800 Bremen 
1, Tel. 04 21 7 34 63 87 



Tl 99/4A. Erstelle Druckerli- 
sting v. Ihren Programmen in 
Tl- u. ext. Basic, je Pgm .-Zeile 

4 Pf. + 2,50 DM f. Portokass. 
m. V.-Scheck o. Briefmarken 
an H. Schwab, Loch 21 , 8504 
Stein 



4 TRS-80/VG Pro- + 

♦ grammliste gegen Frei- ^ 
Umschlag, Scheve, ▼ 

+ 6842 Riedrode ^ 

♦♦♦♦*♦♦♦♦♦♦♦ 



D-64 Forth. *** 49- DM, 
Handb. 25- DM *** Info: D. 
Luda, Staudinger Straße 65, 
8 München 83 * * * 



••• FLOPPY 1541 6x 
SCHNELLER! ••• durch 
Parallelbus für C 64. Interface 
kpl. geprüft mit Software nur 
DM 179,-. Info gegen DM 
1,50 in Briefmark., B. Akes- 
son, Pf. 802, 4040 Neuss. 



Ankäufe 



J C-64. Suche Assembler, Pas- 

• cal, Forth und andere Program- 

• mi ersprach en. Tausch material 

• vorhanden. Stefan Schneider, 

• Meerschiader Weg 1, 5275 
2 Bergneustadt 



Dragon 32, suche Programme, 
z. B. Adventures, Simula- 
tions-Programme, Action-Ga- 
mes etc., Jun Kurokoshi-Krü- 

ger, Kattendahlerstr. 36, 
4006 Erkrath 

Suche 
VC-20-Programme 

Fritz, Wichdorf er Str. 14 
3501 Emstal 2 



Apple IL Suche Software, evtl. 
auch Tausch. Schickt Eure Li- 
ste an Jörn Lubkoll, Boothstr. 
23 b, 1000 Berlin 45 *** nur 
Disk *** 



Suche: Gute und billige Soft- 
ware auf Diskette für 64K Ata- 
ri 600XL. Angebote an: Mi- 
chael Ebeling, Riepener Stra- 
ße 7, 3061 Beckedorf 



Suche Atari Diskettenstation, 
Aussehen egal, Hauptsache 
sie funktioniert. Bitte anrufen 
unter Berlin 30 / 

4 93-19 27 



■ Tl 99/4A Minimemory 
S + Logo gesucht. Tel. 
5 08 81/6 21 64 



Z Apple II. Bin an Soft- » 

• und Hardware für Apple • 
J II aller Art interessiert. Ui- J 

• rieh Elsen, Am Jahnpiatz # 

• 6/383, 4500 Osnabrück • 



Kontakte 



Hallo Spektrumfreaks. Ich 

möchte mit euch gerne Prog. 
tauschen. Liste, ob groß oder 
klein, an: Robert Weidinger, 
Schönmetzlerstr. 10, 8050 

Freising oder Sams.- Diens. 
81 61 Z43 72 



Kontakt mit MZ700-Leuten ge- 
sucht. Tel. 05 1 1 / 42 29 75 

OOOOOOOOOOOOOOOOOO 

O *** Atari-Spectrum- o 

o User-Club *** o 

O monatl. Info, bundesweit o 

O organisiert, riesige O 

g Prog. -Bibliothek usw., g 

o melden bei: o 

g ASUC, Am Schürhof 17 g 

O 4905 Spenge o 

O Tel. 52 25 / 20 68 O 

OOOOOOOOOOOOOOOOOO 

□□□□□□DDGDDaDnnDDD 

□ D 

a Comp.-Club □ 

° Bad Hersfeld g 

□ sucht Mitglieder! □ 

□ Kontakt über □ 
g Roland Reyer ° 
d Am Giegenberg 21 d 
o 6438 Ludwigsau 1 □ 

□ oder Jugendhaus Hers- {=] 
o feld □ 

□ D 
anorjaaoDDDonaoGnnD 



Tausch 



• ZX-Spectrum • neue 
Programme • Tausch- 
börse • Info von S. Sau- 
er • Heideweg 8, 2720 

Rotenburg • 



Tausche/Verkaufe Atari Prg. 
16 K. Uwe Schöneberger, 
Sonnenstraße 18, 6652 Bex- 
bach 2 



Suche Software aller Art 
(Disk.), für Atari 800 XL u. An- 
tic-Hefte bis März 1984; evtl. 

.auch Computer u. Analog. 
Dietmar Levenhagen, Land- 
wehr 83, 3057 Neustadt 1, 
T.el. 50 32/6 11 81 



ZX-Spectrum 

Software und Interessen - 

austausch 

Monika Baumgartner 

4021 Linz 

Postfach 142 Austria 

Bitte Liste beilegen 
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Computer-Börse | 



Verschiedenes 



DpnDGODDDanaDnnoDa 



ZX 81: Schluß mit den 
Clive-Sinclair-Gedächt- 
nisminutenü DD lädt Ihre 
Programme 12x schnel- 
ler!! Für 20- DM von: 
DD-Software, Bernadot- 
testr. 45, 6 Ffm. 50, ® 
69 / 58 71 79 



orJDaDnonoaDorjDanaa 
UFO-Forschung. Informa- 
tionen über UFOs etc. kosten- 
los. Suche Interessenten zum 
Aufbau einer Computer-AG (c 
64), spez. für wiss. UFO-For- 
schung! H. W. Peiniger, PF 
2361 , 5880 Lüdenscheid 



VZ 200 Softw. Info g. Freium- 
schlag. W. Fischer, Friedrich- 
str. 14, 6463 Freigericht 5 



„Load ZX81" lädt jedes 
ZX81-Prog. mit Variablen 
in jeden SPECTRUM. Die 

meisten Basic-Programme 
sind sofort lauffähig. Info 
anfordern oder sofort be- 
stellen: DM 39,-. Michael 
Naujoks, Rottmannstr. 40, 
6900 Heidelberg, Tel. 
62 21 / 4 68 85 



Tl 99/4 A, Software, 
Anwenderprogramme, 
Spiele und individuelle 
Programme. Info gegen 
Rückporto bei: JHC- 
Software, Chatten str. 
28, 6331 Katzenfurt 



Kleinanzeigen 

Liebe Leser, 

wollen sie ein Kleinanzeige aufge- 
ben? Suchen Sie einen gebrauchten 
Home-Computer, Software oder 
Kontakte zu Computer-Clubs etc.? 

Dann nutzen Sie jetzt den Klein- 
anzeigenservice von „Cumpu- 
tronic". „Computronic" ist die 
Zeitschrift für Home-Computer- 
Besitzer. Sie erreichen durch uns 
eine Vielzahl von Lesern im In- und 
Ausland. 

Und so wird's gemacht: 

Kleinanzeigen-Coupon ausfüllen 
(alle Zeilen können ausgefüllt wer- 
den) und gegen 
Vorkasse einsenden an: 

Tronic-Verlag 

Postfach 41 
3444 Wehretal 1 

Also, schnell ausfüllen , und ein- 
werfen in den nächsten Postkasten. 
Dann ist mit Sicherheit Ihre jKlein- 
anzeige dabei. 



C-64-Synthesizer: ca. 40 K, 

echte Noten, Partiturediting, 

Notenausdruck, Direktein- 
spieiung + Notenumsetzung, 
Supersound. Info von Autor 
W. Kracht, Espetlohweg 38, 
2000 Hamburg 52 



Roulettesoftware f. Sharp PC 
121 1/1 2/4551 /PC 1500. Rou- 

iettesystemprogramme »Auf 
Dauer gew.« »AD Astra« 
»Number one« «Acclaim« 
»Plein Prive« »Accord« DM 
550,- Cass. B. Nowotny, Gise- 
lastr. 3, 8000 München 40 



Tl 99/4A + Exbasic 
+ div. Bücher + 
Rec. + Kabel + Ba- 
sic-Kurs, VB 750- 
DM. Tel.: 28 61 / 
48 45, Sa. ab 18 Uhr 



An alle SF- und Fantasy- 
Freunde! Jeweils 8 Mitspieler 
für Strategiespiele gesucht. 
Mit Gewinnchancen. Näheres 
gegen Freiumschlag von: H. 
Topf, A.-Bucherer-Straße 63, 
5300 Bonn 1 



C-64-Forth. Diese neue 
Sprache jetzt auch f. C-64 
Cass.-Vers. DM 63,-/76-, 
Diskvers. inkl. Handb. 
(einz. DM 25-) D-BASIC, 
prof. BASIC erw., DM 33- 
D. Luda, Staudinger Str. 
65, 8000 München 83 



ZX-SPECTRUM! Spie- 
lend BASIC lernen Ca. 
mit 10 Pr.+Listing+Er- 
klärung+Tips+Tricks für 
den ZX. 10,- DM bei 
A. Meuser, Goethestr. 
18, 5205 St, Augustin 
NEU- SUPER ZX Spiele - 



Spectrum Softw. z. B. M. Mi- 
ner 8,-; ZOOM 8,-; Liste + 
kostl. Programm anfordern, 
Karte genügt: H. Novak, Eger- 
länder PI. 19, 6053 Oberts- 
hausen 2 



TI-99/4A: ca. 90 Tf-Basic und 
ca. 80 Ex-Basic Programme 
zu verk. info g. Rückum- 
schlag. B. Knedel, Tulpen- 
gasse 16, 3171 Weyhausen, 
Tel. 5362/711 87 



FORTH-Assemblerlistings für 

alle wichtigen Mikroprozesso- 
ren je 25,- DM; Installation-Ma- 
nual 15,- DM. Autolinker u. 
Buchhaltung f. Apple II. Ko- 
sten I. Into anf. bei B. Lipgens - 
Datentechnik, Wilbrechtstr. 65, 
8000 München 71 




Computronic I\l©illclIlZ©i(J6Ii nur gegen Vorkasse 

Bitte veröffentlichen Sie ab nächstmöglicher Ausgabe unter der Rubrik: 
D Verkäufe □ Kontakte □ Geschäftsempfehlungen 

□ Ankäufe □ Verschiedenes □ Tausch 

folgenden Text: 



I 


l_ I 




I 


I 



Bitte jeweils 28 Buchstaben pro Zeile! Bitte Absender nicht vergessen! 

Preis für Kleinanzeigen: Private Anzeige DM 4,50 je Zeile . 

gewerbl. Anzeige DM 8,00 je Zeile 
Chiffregebühr DM 10,00 je Anzeige 



Name/Vorname; 



Straße, Nr,: 



PLZ/Ort: 



Datum, Unterschrift 



privat □ gewerbl. D 

(bitte ankreuzen) 
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Super Miner 



Das Programm läuft auf allen Atari- 
Compulern mit mindestens 32 Kb Ram 
und wird mit Joystick in Port 1 gesteuert. 



Nachdem nun der mutige Abenteurer, 
dem wir schon in THE BIG QUEST 
begegnet sind, viele Perlen gesammelt, 
viele Türen geöffnet und viele Mon- 
ster GEZAPPT hat, begegnen wir ihm 
bei seinem zweiten Abenteuer, daß in 
den verlassenen Minen von CLUBS 
spielt, 

Da er sehr lange gebraucht hat, um das 
Schloß auszuräumen, befinden wir uns 
inzwischen schon im Jahre 2000! Da 
der technische Fortschritt auch in den 
Minen nicht aufzuhalten ist, wurden 
Fahrstühle und ähnliche Teufelsma- 
schinen eingebaut, um die Arbeit zu 
erleichtern. 

Da die Minen schon seit 1994 verlas- 
sen sind, funktionieren die ganzen Er- 
rungenschaften der Technik nun nicht 
mehr ganz so wie sie sollten, was unse- 
rem Abenteurer natürlich zum Ver- 
hängnis, wird wenn ... 
An dieser Stelle sollen Sie Ihren Joy- 
stick zur Hand nehmen, es sich in Ih- 
rem Sessel bequem machen und dem 
armen, ach so sturen Gesellen ein we- 
nig zur Hand gehen. 
Da er schon immer sehr geldgierig 
war, will er die Minen natürlich aus- 
beuten. Also: steuern Sie die Figur, die 
Ihnen schon aus THE BIG QUEST ent- 
gegenlacht, über die alten, brüchig ge- 
wordenen Ebenen und sammeln Sie 




alle Gegenstände ein, die einsammel- 
bar sind. Doch Vorsicht: Es gibt auch 
Gegenstände, die nur aufgestellt wur- 
den, um uneingeweihte hinters Licht 
zu führen! 

Eine kleine Bemerkung 

Das Programm THE BIG QUEST läuft 

nur vollständig, wenn die Punkte in 

den DATAZEILEN ab 10 000 auch als 

PUNKTE und nicht als KOMMAS 

eingegeben werden! 

Eine kleine Aufzählung der Gefahren, 

die Sie in den Minen bedrohen: 



- Falltüren 

- Absackende Ebenen 

- Spitzen 

- Löcher 

- Abbröckelnde Ebenen 

- Bomben 

- Zapfen 

- Transmitter-Türen 

- Tödliche Abgründe 

- Knöpfe 

- Unsichtbare Ebenen ... 



Alle Bildschirme sind SCHAFFBAR! 



DIM fl'*< 400) »RICO«" "'H«(400)b" "«R»<2)äRfiiREri WEG DRMIT U! 
i REM *%%%%%K%%M%%%%%*%%%%%*% 

2 REM UM SUPER MINER 2! %%%% 

3 REM %% COPYRIGHT <C> 1984 %% 

4 REM % BY THE BYTE NIBBLERf * 
8 REM %%*Xm%%%%%%%%%%tm.%%%%% 

m PRGE»PEEK(10fi>-B'CHS«PHGE*256'PDKE 77,128'PÜKE 559.0 'RESTORE 28000 

12 GOTO 20 

13 SOUND 0,10,8,L.>üiL+5'RETIJRN 

20 READ C'IF C<>~1 THEN B*CH8+CX8 ■ FDR 1*0 TO 7'RERD R'POKE B+I>H>N£XT I»GQT0 28 
50 REM SPIELBEGINN 

60 M»9<P«0'Se*l*SCM»i0 

61 LVUÜ10 

70 GRAPHICS 17«P0KE 756,PflGE«P0KE 7B9, I3Z«PDKE 710,30'PQKE 711, 1B4 
80 COL'ÖR 235'PLOT 0.8 'POSITION 1,0»? #6; "»4" 
108 REM NEUER SCREEN 

101 FOR 1*1 T0 23'C0L0R 32'PLOT 0,I*DRflWTO 19,1'NEXT I 

102 RESTORE 2»990+LVL*10'FOR 1*0 TO 7'REHD FhPÖKE CHB*336+I,H«NEXT I>G0SUB 1950 
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105 BF«0 

110 POKE 559.0 «POSITION 0.4 'GOSUB 9750+80*250 ■ FOKE 559.34 

120 CÖLOR 235'PLOT XjY'H"3Z 

149 TR'flP 5000 

150 REM HHÜPT8CHLEIFE 
160 PÖKE 77.0'ST*8TICKX0> 

170 IF ST« 11 HND X>0 THEN GOSUB 1000 'SOUND 0.0.0.0 

18« IF ST«7 RND X<19 THEN GOSUB 11 00 'SOUND 0.0.0.0 

190 SOUND 0.0.0.0 

200 IF STRIGC0>*0 THEN GOSUB 1300 »GOSUB 1S00 

210 GOSUB 1300 

220 IF 8T*14 HND H-104 THEN GOSUB 1808 

Zm IF ST» 13 THEN GOSUB 1900 

990 GOTO 150 

1000 REM LEFT MOVE 

1001 Ü*5 

1010 LOCHTE X-l.Y. 2 'LOCHTE X-1.Y-1.Z1 

1020 IF Z=81 THEN 5000 

1030 IF 2=202 THEN DOLOR 32 'PLOT X-l.Ys GOSUB 1200 

1040 IF Z-39 HND "zi-32 OR 21*184 > THEN COLOR H'PLOT X,Y'Y*Y-I' COLOR 235'PLOT X. 

Y'Z*Z1 

1050 IF Z<>32 HND ZO104 THEN RETURN 

1060 COLOR 238 'PLOT X,Y> COLOR 239 'PLOT X+l.Y' GOSUB 13 

1070 DOLOR 236 'PLOT X.Y' CÖLOR 237 'PLOT X+l.Y 'GOSUB 13 

1080 CGLÖR 235'PLOT X.Y 'COLOR H'PLOT X+l.Y'GOSUB 13 

1085 H«Z 

1090 RETURN 

1100 REM RIGHT MOVE 

1101 L*5 

11.10 LOCHTE X+I.Y. 2 'LOCHTE X+l.Y-l.Zi 

1120 IF Z*S1 THEN 5000 

1130 IF Z*202 THEN COLOR 32 'PLOT X+l.Y'GOSUB 1200 

1140 IF Z*40 HND CZ1-32 OR Zl»104> THEN COLOR H'PLOT X.Y' Y-Y-l 'COLOR 235'PLOT X. 

Y'Z«Z1 

1150 IF Z03Z HND ZO104 THEN RETURN 

1160 COLOR 236'PLOT X.Y 'COLOR 237'PLOT X+l.Y = GOSUB 13 

1170 COLOR 238'PLOT X.Y 'COLOR 239 'PLOT X+l.Y'GOSUB 13 

1180 COLOR H'PLOT X.Y 'COLOR 235'PLOT X+l.Y 'GOSUB 13 

1185 HsZ>X«X+l 

1190 RETURN 

1200 REM KEY GENOMMEN 

1210 P«P+25' POSITION 4.0=? #6iP 

1220 FOR 1*1500 TQ STEP -64 = SOUND 0. 1. 10. 1/100 'HEXT I 

1230 KEYB=KEYS-1'IF KEYS>0 THEN RETURN 

1240 GOTO 7000 

1308 REM DOWN? 

1305 CTR»0 

1*51R i HP RTF V Y+i Z 

1 320 I F Z*32 THEN ' SOUND . Y# 1 . 1 . 1 ! COLOR H ' PLOT X.Y' Y- Y+ 1 « CTR*CTR+ 1 ■ COLOR 235 ' 

PLOT X.Y 'GOTO 1310 

1330 IF CTR>5 THEN 5808 

1335 IF CTR>0 THEN RETURN m t t3im .„ - *-. «»• ™. 

1340 IF Z>42 HND Z<48 THEN SOUND 0.2. 12. 10 'COLOR Ztl-PLOT X.Y+1 'IF Z*47 THEN COL 

OR 32 'PLOT X.Y+1 

1350 IF Z>42 RND Z<48 THEN RETURN 

1360 IF 2*65 THEN SOUND 0.21 .4. 15 'COLOR 32 'PLOT X.Y+1 'GOTO 1300 

1370 IF Z*&8 OR 2»73 THEN 5060 

138Ö IF Z=71 RND BF THEN 1500 

1390 1F Ö Z«67 THEN LOCHTE X.Y+2.CIF C«32 OR C*33 THEN SOUND 0.98. 12. 15 'COLOR 32' 

PLOT X.Y+1 'CÖLOR 2 'PLOT X.Y+2 

1395 IF Z*S7 HND <C*32 OR C-33 5 THEN 1360 ^^____ 
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1400 IF Z<>42 THEN RETURN 
1410 REM HOCH TELEPORTIEREN 
1420 MIN»1 

}12fl wirSc 2' 21!™'?' JE 51??? THEN MIN-MIN+1 'SOUND 0,MIN,8, 10.GÖTÜ 1438 
**? k£P , ! E r *i?" MIH ' Z ' IF z<>32 THEH MIN*MIN+1. SOUND 0,MIH, 8, lß.GOTö 1440 
43« FÜR 1*0 10 IS STEP 0.73 «SOUND 0, 100, 10, I .80UND 1, 120, 10, I» HEXT I 

1460 DOLOR H.PLOT X,Y- COLOR 235'PLOT X, Y-MIN= Y-Y-MIN* H-32 

}£S dctudTi 13 T0 8 8TEP - " 751 SOUND 0,100, 10,1 'SOUND 1, 120, 10, 1 'HEXT I 

14Ö0 RETURN 

1500 REN BOMBE HUSGELOEST 

1510 COLOR 80'PLOT BXjBY 

1520 FÖR 1*15 Tö STEP -0.5« SOUND 0, 100,8, I . SOUND 1,50,8, I t SOUND 2,30,8, l'«NEXT 

1530 COLOR' 32'PLOT BX,BY 

iltiS^NEXT™ 47 ' C ^ LÖR I,PL0T B^BY-KPLOT BX,BY-2'80UND 0,I,2,10.FÜR W*l TO 

JIÜ gOLÖR3g»PLOTBX,BY"l«PLOT BX,BY-2> SOUND 0,0,0,0'8F*0< RETURN 
1608 REM JUMP 

1610 FOR 1*1 Tö 3 

1620 LOCHTE X,'M,Z'IF Z<>32 THEN 5000 

1630 COLOR HiPLOT X, Y»Y*Y-1 « COLOR 233«PLOT X,Y=H*32 

!!«« Sä* I7fl0,FOR Ua81 * 50 T0 1*50+43 STEP 15' SOUND 0,U, 10, 10-NEXT U 
1650 NEXT I 

1660 1*3 

1670 LOCHTE X,Y+1,Z'IF Z<>32 THEN RETURN 

1680 COLOR H'PLOT X/Y<Y*Y+1 f COLOR 235'FLOT X,Y'H»32 

1695 Sff?. IF 8 ?» ?™ 1 TS™ I * 5ß+49 STEP I5 ' 80UND B'0'«'«'NEXT U 

1697 RETÜRN 

1700 REM LEFT ÖR RIGHT HT JUMP 

1710 ST«*STICKC0)>XR«0 

1720 XR""XR-C8T*11 HND X>0) 

1730 XR»XR'+<ST«7 RND X<19) 

1740 LOCHTE X+XR,Y,Z'IF Z<>32 THEN RETURN 

1800 REM°UP H riOVE T X ^ ,H - 32,X " K+S « i COLOR 235'PLOT X,Y' RETURN 

1810 LOCHTE X,Y-1,Z 

1820 IF Z<>32 HND ZO104 THEN RETURN 

1825 SOUND 0,100,8,15 

\?T« K, H!PLÖT X>YiYaY-HH-Z. COLOR 235>PL0T X,Y 

1900 REM DOWN MO VE 

1910 LOCHTE X,Y+i;Z 

1920 IF ZO104 THEN RETURN 

1925 SOUND 0,100,8,15 

1930 COLOR H'PLOT X, Y'Y*Y+1 >H«Z> COLOR 235'PLOT X,Y 

1950 COLOR 32'PLOT 0,0'DRHWTO 19,0'POKE 756,224 

illl S^AW^ÜSWiS" mi DIE - iSETC0L0R **» 

J™ IE. ?J R i5 < 2- > " 1 THEN S0UWD e 'PEEK< 53770), 8, 10 'SOUND 0,0, 0,0: GOTO 1970 

ITIOT^S^fi^?»;";?'^ " |8,PL0T «'WM»»™ 19,14:C0L0R 235'PLOT 0,0. P08 

1990 POKE 756, PRGE' RETURN 

50Ö0 REM KHPUTT 

5001 TRflP 40000 

5010 POP 'POP «POP 'M««M-1 «POSITION 2,0'? «6jM 

wn php t!LS°tÄ 5 422 UND «'«'e'I'SOUND 1,22,8,1 'SOUND 2,4,8, I'NEXT I 
5W20 FÜR l a <t^d TÖ ^50 

5030 COLOR I«PLOT X,Y 

3 ?. 4 ?™-S9 U ? > ' ^200,8, 13 -80UND 1, 1-220,3, 15 = SOUND 2, 1-240,8, 15 'FOR W»l TO 12«NEXT 
W ! NEXT I 

5044 COLOR 32'PLOT X,Y 
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5645 FÖR 1*15 TO STEP -1= SOUND 8,50,8.- 
5050 SOUND 0,0, 0,0: SOUND 1,0,0,0 ■ SOUND 2 

5066 IF M>0 THEN 100 

m?P\ POKE 77,128'IF PEEK< 53279 X >6 THEN 5970 

5080 GOTO 50 

7000 REM GESCHAFFT 

7010 POP 'POP 'POP 

7020 P«P+SC*1000' POSITION 4,0=? -#G;P 

7038 FOR 1=15008 TO STEP -320 'SOUND 0,1,18,1/1 

7035 LVL-LVL+WF LVL>19 THEN LVL-1 

7840 SOSC+1'IF SOSCM THEN SC*1 

7050 GOTO 100 

DFE*!5£EEH&' 

D i "; ■ 



Ii SOUND 1,30,8,1 'SOUND 2, 10,8, 1 'HEXT I 

,0,0,0 



'HEXT I 



DEE " :> 
i i ii i f " ; 



10000 t #6;" 

10010 ? #6J" 

10028 ? #6.J" 
10038 ? #6j" 
10040 ? #6;"< ! ! ! !' 
10050 ? #6j" !! ! ! I ! 
10060 ? #6; "MÜH 
10078 t #6;"! ! ! ! ! ! 
10080 ? #6j m DEDFED 
10098 ? #6;" 
10100 T #6;" 
10110 ? #6;" 
10120 ? #6i" 
10130 ? #6;" 
10140 ? #6;" 

10150 ? #6j"< r h 1 1 1 n#m n mi r'j 

10160 ? #6i"DEFDFFDEDEDDFEDFFEDF"; 
10170 ? #6;" n J 

10188 ? #6i" b J 

10190 ? #6;" "J 

10200 COLOR 202 'PLOT 12, 18 'PLOT 2,7' 
PLOT 15*I2<XM'Y-1B*KEYS«3 
10210 SETCOLÖR 0,2,2 
10220 RETURN 

1S250 ? #6j"u ifmini m r "; 

10260 ? #6; "DEDEDEEFDFEDFDFD 

10270 ? #6i B 

C 
< ! 
c: ! ! ! 
C -f +4-f++ +4- ++ MM 



ii , 



!"; 



DRRRRRRRfiRRDEDEEEE" i 



10280 ? #6;" 
10290 ? #Sj" 
10300 ? #6.:" 
10310 ? #6j" 
10320 ? #6;" 
1033Ö ? #6;" "; 

10340 ? #Gj"<' "* 

10350 ? #6;"! !+' "J 

1036Ö ? #6;'M! + I I' "; 

10370 ? #6;"$!+! ! !' "> 

1038Ö ? #6; " &+!!!! fBBBBB! ! ' "i 
10390 ? #6.5" REDEEEEDDEDDED " i 
10400 ? #6;" U J 

10410 ? #6.i" C !'"' 

10420 ? #6.i" <M M"; 

18430 ? #6; "HB! M I ! ! M ! ! ! ! M ! !!".; 
10440 ? #6j'"DEFEDM>EDDEDDEEDDEDD i, j 
10450 COLOR 202 'PLOT 1,21 «KEYS«! «X-0 ! Y< 
10460 SETCOLÖR 0,3,4 
10470 RETURN 

10500 ? #6j"<G' (!IM!' " i 
10510 ? #6;"FFF ! f I !! II "i 
10520 ? #6j" !Mi!M "i 



10530 
1Ö540 
10550 
19560 
10576 
105:30 
10590 

18600 

10610 
10620 
10630 

1Ö640 
10650 
1066Ö 
10670 
10680 
10690 

10760 

PLOT 

10710 

8 * BX= 
18720 



? #6;" 
? #6j" 
? #6.i " 
? #6.i" 
? #6j " 
? #6; " 
? #6;" 
#6; " 
#6j" 
#6; "' 



.< 



KFEDfc ! 

i 



Q 

SM M f ! + ! !h' " 
FEFEEFHEFhD", 
h " 
) h " 
h " 
h " 
h " 
H " 

i } « 

# " 



i i '»*! ! 



;i!KM !•' 
#6;"! ! !h! ! M ! V 
#6;"! i !h'M ! ! ! ! 
#6j"DEDhFDDSi ! 
#6;" h &!*!■!!! Mi 
#6j h H DD&MM? 

#Si" h ,FE*Ü 

#6;"DDFDRRR FDF "j 

COLOR 202 'PLOT 11, 10 'PLOT 13,3 
6,22«X-0'Y-22<KEYS-2 
SETCOLÖR 0,7, 6 'SETCOLÖR 1,1, 
14'BY«10'BF*1 
RETURN 



10758 
1.0760 
10770 

10788 
10790 

1080G 

10.810 

10820 
10830 
19840 
10850 
10860 
10870 
10880 
10890 

10900 
1.0910 

10920 
10939 
18940 
19950 
LOT 3 
10960 
10970 

11000 
11010 
11020 
11030 



D 



? #6.i " 

? #€<} " 

? #6;" 

? #6j"h!' 

r #6j"h!i' 

#6; "KIMM •+++ 
•ei "Kl IUI' HRR 
#fij "h 1 f • ' • ! ! ' 
#6; »HEDFDEFDF 

? #fij"h 

? #6;"h 

? #6;"h 
#6;"h 

#6; "MM!' 
#6;"!S IffDD 



C||(!!!!!ü!h"j 
• l3sEEfc!#D«l8h"' 



D 



F h"; 

h"j 

h"i 

h"; 

< M ! !h!"i 

SR! ! ! !hfc'"i 

EDFDh "J 

h "j 

h "; 

h "; 

h "; 

hiüü *!#"; 

hFEE D "J 

h *"; 

h " i 



? #5j"ltt 
? #6j " ! M ' 
? #6j"i!!ll!!![!!f' CM"; 

T #6;"EFDDEFDDDFFDDDFREEFD n ; 
COLOR 202 'PLOT 2, 20= PLOT 8,4'P 
, B = PLOT 1,6' KE YS«4 • X« 1 9 « Y*2 1 
SETCOLÖR 0,4,4 'SETCOLÖR 1,1 ^S 
RETURN 

? #6;" ":< 

7 #6i" <+' "; 

? #Sj"' CMttDE C!#D8iKHr <"; 
? #6;" ! 8.M !ü <# \ n i 
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11840 

11050 

11068 

11070 
11080 

11090 

11100 
11110 

11120 
11130 
11146 
11150 

11160 

11170 
11180 

11190 



#6;"! KI ( ! 

#6; " ! ' 
#6; "\&4 
#6;"! 
#6;"! 



#6;"r 8.11' 
#6;"! !#PÜ 
#6;"!D f 
#6; " ! I 
#6; " ! ' 
#6; "(FE 
#6; " ! 
#6; " M * 



ff&l ! IDF % 
! & ( P&I 
! I \ f &•' U 
&# ! !D fC! 
$!' CM!! $ 



%* 



C ! " ,i 

i"i 

!"j 



! , 
I « s 



ff &! f ! ! 
M fe# 

1.1' 8,' 

il { ' I I f I 

!EDF MM !f#DE 
&' ES!!!» 

!+' D&! ' C ! "j 

! + ! f ' I IM"; 

#6.;"!FDE DRD&! !■'!!#»■ 

#£;"&' < !•' C !3RDD« "> 

#6;" DDDDDDDDDDDDD "j 

11200 CÖLÖR 202 'PLOT 11, 7 'PLOT 13, 9 'PLOT 

12; 11 'PLOT 9, 9= PLOT 16, 16= PLOT 17,21 'PL 

OT 14, 20 'PLOT 11, 22 'PLOT 6.18 

11202 PLOT 4, 15 'PLOT 1,19 'PLOT 2,22 

' PLOT 7 , 22 1 X- 1 1 ' Y*5 '• KE YS-S 

11210 SETCOLOR 0,7,2 

11220 RETURH 



11250 

11260 
1127Ö 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
1 1370 
11380 
1 1390 

11400 

11410 
11420 

11430 
1,1448 



#6," C '<'■:•' 
#6j"FFF FFFF FFF FFF FFF 1 

#6.! " 

#6r M 

#6; " 

#6;" - ' c ' f •' 

#6; " 

#6j" 

#6.: " 
#6j " 
#6; "FF 
#6.i " 
#6; •' 
#6; " 
#6; " 
#6;" 
#6; " 
#S;" 



FFFF FF FFF FFF FF 



FF FF FF FF FF 



FF F 



F FF 



11450 SETCOLOR 0,11,4'COLOR 202' PLOT 18, 
4 'PLOT 18, 9 'PLOT 18, 14= PLOT 18, 19«KEYS*4 
i X-0 i Y»4 
11470 RETURH 



11500 

11510 

11520 
11.530 
1154Ö 
11550 
11560 
11570 
11580 
11590 

11600 

11610 

11628 
11630 



#6; "< +++++++h++++++++++' " ; 
#6; " f+++++4-fh+++++++++++" ; 
#6 .: M flRflfl'RRRRhHflflflRflfl&+++ " ; 
#6;" h <+++■'; 

#6;" h &+++". i 

#6j" h <+++"; 

#6j "C +++++++h+++++++++++" ; 
#6; "++++++++h+++++++++++"; 
#6; 1 '++#RRRRRhRRRRRRRRRRR M ; 
#6;"++-' h "; 

#6i"++X h ".: 

#6;"++' h "; 

#6; "•f+++++4.+h+++'f++++++• , "; 
#6; , '++++++++h++++«H--f ++++'' j 



11640 
11650 
11660 
1 1670 
11680 
11690 

11.700 

OT Ö, 
19,15 
15,21 

11710 
11720 
11758 
11760 
11770 
11789 
11798 

11800 

11810 
11820 
11830 
11840 
11850 
11860 
11870 
11880 
11890 

11900 

11910 
11920 
11930 

11940 
1195Ö 
BY*14 
11968 
11970 

120Ö0 
12010 

12020 

12030 

12040 

12050 

12060 

12070 

12080 

12090 

12100 

12110 

12120 

12130 

12140 

12150 

12160 

12170 

12180 

12190 

12200 

LOT 4 

12210 

12220 

12250 

12260 



■? 



" RRRHRRRRhRRRRRRR& t +++ " 



<+C 



i 
f 



!*" 
! " 
i " 

! " 
i " 



U 
!E 



( f 
!E 



!D 



! "; 
! "j 
! "j 

!"; 
I"i 

I " : 



; 



! " 



#6; 
? #6j 

■? #6;" h $+++".; 
? #6;" h C+++») 
'?' #6; "<++++++++++++4H-+++++'' ; 
? #6.J "RRRRRRRRRRRRRRRRRRRR" ) 
DOLOR 202= PLOT 0, 3 'PLOT 19, 3 'PL 

3 'PLOT 15, 9= PLOT 3, 13 'PLOT 

'PLOT 

'X*0'Y~21'KEYS~7 
SETCOLOR 0,13, 2 'SETCOLOR 1,12,4 
RETURN 
? #6i "<!!!!!!!! ' 

#6;"! I ! !#6if ! ! 

#6i"!!!# gc f f 

#6j"!!# f! 

•fij"!! f 

#6; "!!!!!!!!!! 

#s; " i i i i i i i i i i 

#6;"! Ü0EF&! ! ! 

#6i" !! IE! 

#6;"!! ! ! 

#6;"! !' Q ! 

#6j"&! ! !! ! ! !*^ 

#6j m DDEDEEEE 
? #6i " C ! 

? #6j" < !E 

? #6j" c fF 

? #6j"(5sDDDDDDDRD 
? #6;"!' 

? #6.: "S! !*!!!!!!!!!!!!!! {Js M ; 
? #6.:" DDDDDDDDDDDDDDDDDD "j 
CÜLOR 202 ' PLOT 5 , 8 ' X= 1 ' Y* 1 9 ' BX«? 
«BF*i'KEYS»l 
SETCOLOR 0,0,8 
RETURH 
1 #6i"C !!+!![( fCC! !!!!+' !'"; 

#6; "I FERS! ! ff ! ! ! ! ! !#REF!"; 

#6.i" ! f ! H ( !! I r% I»; 

#6i"!R' Fh!!f!hE <R!"j 
#6;" ! !•' h( ! ! !h f i i"; 

? #6j"( + ! ! ! L'h! ! f !h< ! f »! + !»■ j 

? #6; " !fl!#DFhh! ( ! IhhDDSIRi "; 

? #6i"f ! hh! !ühh ! !"; 
#6;"i !■* h'KmiKK < \ !"j 
#6.i"! + ! ! »•»hh! ! ! !hh< ! ! ! + !».! 
#6 j " ! R ! #Dhhh ! ! I \ hhhDS. ! R ! " ; 
#6;" ! ! h'h'h! ! üh'hh ! !"; 
#6;"! !' hhh! ! ! !hhh (. ! !".i 
#6i H I + f l'hhhl fühhht !! + !"; - 
#6 i " f R ! #FhKh !! ! ! hKhFSc ! R ! " j 
#6;"! r hhh! Hlhhh < ! !"; 
#6j"! ü'h'h'h! ü'hh'hCü !■'; 
#6j" \ \ \ fhhh! ! ! !hhh! ! ! !".i 
#Sj"!*! !!!!!! I üüü ! !*i»; 
#6 ; " FDEEDFFEE FDFFDFDDF " j 

COLÖR 202 'PLOT 15, 16 'PLOT 4,16'P 
,12 'PLOT 15/i2'Xa4'Y«19'K:EY8*4 

SETCOLOR 0,2, 2 'SETCOLOR 1,0,4 

RETURN 

? #Sj " »i 



f 

•? 
■7 

? 
? 
? 
? 
? 
? 
•? 

'? 

'7' 



:j 



DEFDEFDE EFD DFD E"; 
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12270 

12280 

12298 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

12380 

12390 

12490 

12410 

12420 

12430 

12440 

1.2450 

12460 

12470 

19999 

2S0BS 

28010 

28020 

28930 

28040 

28050 

28060 

28070 

28080 

28098, 

28100 

28110 

28120 

28130 

23140 

2815Ö 

28160 

28170 

28180 

28190 

28200 

28210 

28220 

28238 



? #6;" ;j;jj;;; ;j; ;jj j"j 

? #6j" üj ;j; ;;; j"; 

? #Gi" >>} as ) a :>i"i 

? #6j" ; j j ;j j j JJ J J J J '"' 

? *Ss" ;j ; JJi i '"* 

? #6;" ;> jj ;j njjü J '"' 

? #6i" Ji j; Ji iiJiü i ;J|i 

? #6.i " j j j . ; > '/ > ' > " ' 

? #6 j " ; 5 J J ; t i > > ■• ■• :•>>"' 

? #6.i" ij jjj j ü i i"J 

? #6j" i ; üj ü j i"; 

•? #6j" j jj;j j jjj " i j"J 

? #6;" ; ;; :• > > r> > n i ;"•' 

? #6;" ; J.ij; ;.:j Ji > J"i 

? #6;" .i >;;üj JJJ u > -■"' 

? *6j" • nun m ■>■> ■> i"i 

? #6;" j jjJtJi "J 

? #6; "DFDFDEDDFDEDDDFEDEDF"i 

COLOR 202 • PLOT 1 9 , 22 ■• KEYS« 1 - X=9 ■• V»4 

8ETCÜL0R 0,9.4 

RETURN 

REM WEG DRW IT 

DMTR 1,255j255j253j253i255,2S5i235i255 

DftTfl 3> 255, 254, 252> 252, 244, 224, 160,128 

DflTR 4,255, 127,63, 127,47, 13, 11/ 1 

DATA 5 , 255 , 254 , 255 , 250 , 248 , 240 , 208 , 1 28 

DRTfi 6,255, 127, 127,63,47, 15, 11, 1 

DRTR 7 , 224 , 248 , 252 , 254 , 254 , 255 , 255 , 255 

DRTfl 8,7,31,63,127,127,255,255,255 

DRTR 9,110,247,255,190,125,255,239,118 

DRTR 10,255,231,153,231,255,255,255,255 

DflTR 1 1 , 255 , 255 , 255 , 255 , 255 * 255 , Zj-j > 255 

DRTR 12,255,191,253,247,223,251,255,191 

DflTR 13,251, 191,237, 119,221/ 123, ^0b, 181 

DflTR 14, 107, 146,77,34, 149,98,138, 181 

DRTfl 15, 136,2,80,4,33,8,66,8 

DRTfl 16,28,34,34,0,34,34,28,0 

DflTR 17,8,8,8,0,8,8,8,0 

DRTfl 18 , 28 , 2, 2, 28 , 32 , 32, 28 , 

DRTR 19,28,2,2,28,2,2,28,8 

DRTR 20,32,34,34,28,2,2,0,0 

DflTR 21,28,32,32,28,2,2,28,0 

DflTR 22,28,32,32,23,34,34,28,0 

DRTR 23,28,2,2,0,2,2,0,0 

DRTR 24,28,34,34,28,34,34,23,0 

DflTR 25,28,34,34,28,2,2,28,0 



28240 DflTR 26,0,0,24,0,0,24,0,0 

28250 DRTfl 33,255,247,119,35,34,2,0,0 

28260 DRTfl 34,170,170,255,255,255,255,255,2^ 

28270 DRTfl 35,219,255,255,255,255,255,255,255 

2S?öä DATA 36,255,247,230,98,66,64,0,0 

28290 DflTR 37,255,239,103,70,66,2,0,0 

28300 DRTR 38,255,255,218,74,72,8,0,8 

28310 DRTR 39,255,231,195,231,255,255,255,255 

28r-!20 DflTR 40,126,66,126,66,126,66,126,66 

28330 DflTR 41,6,204,106,43,125,191,238,251 

28340 DflTR 42,224,160,224,48,26,15,6,2 

28350 DRTfl 43,60,126,90,219,255,195,102,60 

?8360 DRTR 44,7,31,55,119,127,112,56,15 

28*70 DRTR 45,0,192,96,112,240,112,224,128 

28380 DRTfl 46,0,3,6,14,15,14,7,1 

?8390 DflTR 47 , 224 , 248 , 236 , 238 , 254 , 1 4 , & > 24d 

28400 DflTR 48,137,74,0,216,27,0,82,145 

28418 DflTR 49,239,247,247,227,193,193,227,255 

2R428 DRTR 50,60,126,90,219,255,255,2^1,66 

28430 DRTR 51,60,126,90,255,231^95^9^66 

23448 DATA 52,60,126,102,195,195,195,195,102 

28450 DflTR 53,0,0,60,126,102,195,195,102 

28460 DRTfl 54,16,0,68,0,60,102,195,192 

28470 DRTR 55,0,66,0,0,0,60,231,182 

£8480 DATA 56, 129,0,0,0; 145,82,0,255 

28490 DflTR 57,0,0,16,16,129,0,0,60 

28580 DRTfl 58 i 16, 16, 8,0/ 0/0/ 0/24,-1 

29800 DATA 224, 160, 224, 48, 26, 15, 6,2, gCHLUEaoEL 

29010 DATA 32,80,32/ 112, 112; 115, 117/254,KERZEN 

29ß20 DATA 16,34,21, 178,77, 143, 18, lb, PFLANZEN 

2<Ä DATA 24,60,90,99,255, 165,219, 126, GESICHTER 

29040 DflTR 127,126,119,99,99,119,127,127,DISi<ETTEN 

■^9050 DATA 48,48,48,48, 122, 255, 255, 255,. JUrSTICKS 

29860 DATA 24,60,60, 126, 126, 36 ,36, 36, STECKER 

29070 DRTfl 38,44,5S,60,S0,2l6,96,32,HflEHDE 

29080 DATA 96,224,240,56,28, 15, 7, 6, KNOCHEN 

p DHTfl 64, 160,80,41,22, 15, 15,6,MOT0RSAEGEN 
29100 DflTR 4^24, 152/248, 124,14,7, 3, SCHRAUBENSCHLÜSSEL 
29 1 1 DRTfl 8 , 8 , 1 04 , 58 , 1 3 , 26 , 40 , 1 6 , SCHEREN ,„_„.-» 
29120 DATA 60, 102, 195, 129, 165,231, 102 4 3^KOPFHOERER 
29133 DATA 126,255, 175,213, 175,213, 175, 255, RADIOS 
ilüt DATA K2.99,99/0,127/119,U9/62,VORHHENGESCHLOESSER 

29159 DflTR 28, 34, 62, 62, 28, 8, 28, 62, KELCHE 

29160 DATA 24,60,60, 126, 126, 122, 118, b0, EIER 
£9170 DATA S6, 189,98,90,255,231,66, 165, MONSTER 

29180 DATA 56, 108,68, 108, 108, 124,40, 84, GRABSTEINE 



Diamonds 

Diamonds ist dem Atari-Hit 
PENGO nachempfunden. Das 
Spiel ist in Basic geschrieben 
und läuft auf allen Atari-Compu- 
tern. 

Sie sind mit vier Gespenstern, die Ihnen nach dem Leben 
trachten, eingesperrt. Sie haben nur eine Chance, ihnen 
zu entkommen. Drei im Raum befindlichen Diamanten 
müssen zu einem Block zusammen geschoben werden, 
um in den nächsten Raum zu entkommen. Aber - die 
Diamanten und Klötze lassen sich nur anschieben, wenn 
sie sich zur Mitte des Bildes befinden und nicht die 
Wände berühren. 

Wird einer der Gegenstände, ein Klotz oder Diamand, 
über die Gespenster hinweggeschoben, werden sie für 
kurze Zeit außer Gefecht gesetzt. Doch Geister sind ja 
bekanntlich unsterblich. Deshalb kommen sie nach kur- 
zer Zeit auch wieder. Sie erscheinen nun in einer Klotz- 
Form und in einer anderen Farbe. In diesem Stadium sind 
sie jedoch wehrlos. 

Nutzen Sie nun die Situation der Wertlosigkeit, sich zum 
Sieger in diesem Spiel zu erklären. Überrennen Sie soviel 
Gespenster wie möglich! Lassen Sie sich aber nicht zuviel 
Zeit! Wenn die Uhr abgelaufen ist, ist die Spielfigur 
verloren. 

Computronic — — - 



i REM *************************** 
■? REH * * 

3 REH * DIAMONDS * 

4 REH * tc) 1984- wn * 

5 REH * FRANK PRIGGERT * 

6 REM * * 

7 REM *************************** 
10 DIM FXC183,FYC101 3 LOOPC10: 

20 A1=7=DIF=1 :LEBEN=3 :PAUSE=1 4 :RQUND=0 :S 

CORE=0*-BONUS=1 

30 GOSUB 1600 

40 GRAPHICS 18:P0KE 756,CH/256 :PpKE 77,0 

:POKE 710,1 96 :P0KE 709,29 3P0KE 704,29 

50 GOSUB 900:ROUND=ROUND+1 :TIF1E=1 000 :POS 

IT ION 4,0:PRINT #6 JTIHE POSITION 15,0:PR 

INT #6} LEBEN 

60 POSITION 1,11 =PRINT #6 ; "SCORE :" ;SC0RE 

POSITION -17,11 SPRINT #6 ;ROUND :CQL0R 32: 

PLOT 1,5 

70 COLOR 162:F0R 1=1 TO 80:PLOT INTCRNDC 

0D*16D+2, INTCRNÖC03*93+1 :NHXT I 

80 GOSUB 2050:X=2:Y=5:COLOR 7=PL0T 2,5:1 

F R0UND>11 THEN PAUSE=4 

90 COLOR 29:F0R 1=1 TO 3 

100 SX=INTCRNDC03*14+3) :SY=INTCRNDC03*7+ 

23:LOCATE SX,SY,J:IF J=29 OR J=7 THEN 10 
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110 GOSUB 950:GOSUB 950:PLOT SX,SY:NEXT 

I 5COLOR 36SF0R 1=1 TO 4 »GOSUB 1350:LOOPC 

I3=0=NEXT I 

120 FOR 1 = 1 TO 4 "SOUND 0, 20-5*C 1=43, 1 0, 1 

0+2* C 1=4 3 2 FOR J=l TO 150JNEXT J 

130 SOUND 0,0,0,0:FOR J = 1 TO 150. NEXT J' 
NEXT UK=0 

140 FOR 1=1 TO 40 3NEXT I 

150 A=STICKC03.TI!1E=TiriE-1 

160 POSITION 4,0'PRINT #6 ;TIME iCHR$C 1 293 

-POSITION 7,1 SPRINT #6jSC0RE 

170 IF TIJ1E<0 THEN 1000 

180 IF A=7 THEN X1 =1 :Y1 =0 :GOTO 230 

190 IF A=11 THEN X1 =-1 =Yt =0 -GOTO 230 

200 IF A=13 THEN Y1 =1 :X1 =0 =GOTO 230 

210 IF A=14 THEN Y1 =-1 :X1 =0 :GOTO 230 

220 GOTO 600 

230 SOUND ? 71 ? 2 ? 15:TinE=TiriE-1 :LOCATE X 

+X1 ,Y+Y1 ,J 2SOUND 0,0,0,0 

240 IF J=32 THEN 280 

250 IF J=34 THEN SOUND 2, 30, 10, 1 :SCOR£= 

SCORE+50:GOTO 280 

260 IF J<>36 THEN 290 

270 GOTO 1000 

280 COLOR 32-PLOT X,Y=X=X+X1 :Y=Y+Y1 

290 COLOR AsPLOT X , Y :A1 =A =SOUND 2-, 0,0, s 

IF STRIGC03 »THEN 600 

300 IF J=162 OR J=29 THEN STEIN=J =FREI=2 

°TII1E=TIf1E-2:G0T0 400 

310. GOTO 600 

400 SOUND 2j0,0,0:LOCATE X+FREI*X1 , Y+FRE 

I*Y1,j:iF J=36 THEN SOUND 2, 30, 1 0, 15 :SCO 

RE=SCORE+ 100: GOTO 410 

405 IF J<>32 THEN 500 

410 SOUND 1 ,20, 100,70:SCORE=SCORE+5:COLO 

R 32:PL0T X+FREI*X1 -XI , Y+FREI*Y1 -Y1 

420 COLOR STEIN =PLOT X+FREI*X1 , Y+FREI*Yl 

430 FREI=FREI+1 :GOTO 400 

440 COLOR 163:G0SUB 450:COLOR 165:GOSUB 

450-COLOR. 32:PL0T X+X1,Y+Y1 :SCORE=SCORE+ 

5-K=0. SOUND 2,0,0,0:GOTO 600 

450 PLOT X+X1,Y+Y1 :FOR 1=1 TO 5. SOUND 2, 

K,0-, 15:K=K+1 :NEXT I »RETURN 

460 J=4:F0R 1=1 TO 20 

470 POKE CH+243,103+J:SOUND 0,90+J,l0,10 

480 FOR K=1 TO 20;NEXT K:SOUND 0,0,0,0 

430 J=-J :NEXT I .RETURN 

500 SOUND 1,0,0,0:IF STEIN=162 AND FREI= 

2 THEN 440 

510 IF STEIN=162 THEN 600 

520 SX=X+FREI*X1-~X1 :SY=Y+FREIXY1 -Y1 

530 FOR K-1 TO 2=DIF=-DIF 

540 LOCATE SX, SY+DIF, J : IF J=23 OR J=30 T 

HEN S1X=SX-S1Y=SY+DIF -GOSUB 570 



550- LOCATE SX+DIF, SY, J : IF J=29 OR J=30 T 
HEN S1X=SX+DIF-S1Y=SY:GOSUB 570 
560 SOUND 1,0, 0,0: NEXT K-GOTO 600 
570 SOUND 1 , 15, 10, 15 -COLOR 30: PLOT SX,SY 
iPLOT SIXjSIY 

580 IF BLOCK=0 THEN BLOCK=1 :SCORE=SCORE+ 
200:RETURN 
590 POP :GOTO 1380 

600 UIAIT=WAIT+1 :IF WAIT<PAUSETHEN 140 
610 UAIT=0:FOR 1=1 TO 4?L0CATE FXCI3,FYC 
I3,J:IF J<>36 THEN GOSUB 730:NEXT I :GGTO 

150 
620 X2=-SGNCFXCI3-X3 : Y2=-SGNCFYC I3-Y3 
630 IF Y2O0 AND X2O0 THEN GOSUB 710. 
640 LOCATE FXC I3+X2, FYCI 3+Y2, J 
650 IF J=162 THEN 770 
660 IF J=29 OR J=30 OR J=36 OR J=34 THEN 

NEXT I :GOTO 150 
670 COLOR 32:PL0T FXCI3,FYU3 
680 FXCI 3=FXC I 3+X2 -FYC I 3=FYC I3+Y2 
690 COLOR 36:PL0T FXC I 3 , FYC 13 : IF J=A1 TH 
EN POP -X1=0:Y1=0:GOTO 1000 
700 NEXT I -GOTO 150 
710 IF RNDC0]>„5 THEN X2=0:RETURN 
720 Y2=0: RETURN 
730 IF J=34 THEN 760 

740 LQOPCI3=LOOPCI3+1 =IF LOOPCI3<3 THEN 
RETURN 
750 COLOR 34:G0SUB 1 350 .LOOPC 13=0 :RETURN 

760 COLOR 36-PLOT FXC 13, FYC I 3 :RETURN 

770 SOUND 0,5, 10, 10:COLOR 32 

780 PLOT FXCI3+X2,FYCI3+Y2:SOUND 0,0,0,0 

-NEXT I :GOTO 150 

900 COLOR 129-PLGT 2,0:DRAWTO 17,0 

910 COLOR 136:PL0T 18,0;COLOR 137:DRAWT0 

18,9 
920 COLOR 138:PL0T 18,10:COLOR 129JDRAWT 
2,10 
930 COLOR 140. PLOT 1,10:COLOR 137.DRAWT0 

1,1 
940 COLOR 143:PLOT 1,0»RETURN 
950 DIF=-DIF 

960 LOCATE SX, SY+DIF, J - IF J=29 THEN POP 
:GOTO 100 

970 LOCATE SX+DIF, SY, J : IF J=29 THEN POP 
"GOTO 100 
980 RETURN 

1000 COLOR 129.PL0T 4,0=DRAWTO 8,0 
1010 COLOR 32:PLOT-X,Y:C0LOR 3: GOSUB 450 
"COLOR 5-:G0SUB 450-COLOR 32:G0SUB 450 :SO 
UND 2,0,0,0 

1020 ROUND=ROUND-l :LEBEN=LEBEN- 1 :BLOCK=0 
: AI =7; GOSUB 1400:K=0 
1030 IF LEBEN=0 THEN 1500 
1040 GOTO 40 
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1 100 RESTORE 1 140 

1110 FÜR 1=1 TO 1823:P0KE CH+I , PEEKC5734 

4+I3SNEXT I 

1120 READ ft:IF A=-1 THEN RETURN 

1130 FOR 1=0 TO 7:READ B:P0KE CH+I+A*8,B 

•NEXT I :60T0 1 120 

1140 DATA' 1,0,255,255,255,255,255,0,0 

1150 DATA 2,62,127,127,127,127,127,62,0 

1160 DATA 7,0,56,103,127,127,125,56,0 

1170 DATA 11,0,14,87,127,127,95,14,0 

1180 DATA 13,60,126,126,118,60,24,60,0 

1190 DATA 14,63,24,60,118,126,126,60,0 

1200 DATA 4,60,126,90,126,90,102,60,0. 

1210 DATA 29,62,127,119,107,119,127,62,0 

1220 DATA 30,62, 127, 119,93, 113> 127,62,0 

1230 DATA 3,42,85,54,73,54,85,42,0 

1240 DATA 5,0,0,20,8,20,0,0,0 

1250 DATA 8,0,252,252,252,252,252,60,60 

1260 DATA 9,60,60,60,60,60,60,60,60 

1270 DATA 10,60,252,252,252,252,252,0,0 

1288 DATA 12,60,63,63,63,63,63,0,0 

1290 "DATA 15,0,63,63,63,63,63,60,60 

1300 DATA 6,60,66,153,161,161,153,66,60 

1309 DATA -1 

1350 FXCI3=INTCRNDC0D*123+6:FYCI3=INTCRN 

DC03*93-M 2LOCATE FXC I 3 , FYC I 3 , J 

1360 IF J<>32 THEN 1350 

1370 PLOT FXCI3,FYCID:RETURN 

1380 SOUND 1,0,0,0:SCORE=SCORE+2000+TiriE 

+ROUND* 1 00 : A 1 =7 : BLOCK=0 : PAUSE=PAUSE- 1 

1390 POSITION 1,11 :PRINT #6 J "SCORE :" JSCO 

PEiCOLOR 129:PL0T 4,0:DRAUTO 8,0:GOSUB 4. 

60:GOSUB 1400:GOTO 40 

1400 IF SCQRE<25000*8ONLJS THEN FOR 1=1 T 

500:N£XT I ^RETURN 

1410 POSITION 4,5:PRINT #6 J " BONUSLEBEN 

'1420 FOR 1=255 TO STEP -1 :SOUND 0,1,10 

,10JPOKE 712,l:NEXT I 

1430 LEBEN=LEBEN+1 :BQNUS=BONUS+1 |A1=7:RE 

TURN ■ 

1500 POSITION 4,2:PRINT #6;" 9ame ouer 

1510 IF SCORE>TOP THEN TOP=SCORE 

1520 POSITION 3, 4 SPRINT #6 ; M SCORE :" ;SCO 

PET " 

1530 POSITION 4,6:PRINT #6 ;" HIGH:";TOP; 

M '^POSITION 4,8:PRINT #6 5 ! ' START? 

1540 COLOR 32=PL0T 1 , 1 1 ^DRAWTO 16, ti:COL 

OR 38SPL0T 5,11 cPRINT #6 5" 1384" 

1550 IF STRIGC03 AND PEEKC532733 <>6 THEN 

1550 
1 560 SCORE=0 :ROUND=0 ^PAUSE=1 4 : A1 =7 'LEBEN 
=3:B0NUS=1 :GOTO 40 
1600 GRAPHICS 18=P0KE 708,15 



1610 POSITION 6,3:PRINT #6 5 "DI AMONDS" 
1620 2L=PEEKC5603+PEEKC561 3*256 :POKE 2L+ 
11,6:POKE 2L+13,6 5P0KE ?.L+16,6 
1630 POSITION 3,6 SPRINT #6 ; "by" POSITION 
3,8:PRINT #6 ;" frank pn i 99ert" :GOSUB 200 



1640 CH-CPEEKU 063-83*256 =GOSUB 1100 

1650 POSITION 2,11 SPRINT #6 ; "sp i e I rege I n 

j" ;CHR*U53 ;"n" 
1660 POKE 764,255:0PEN #1 ,4 , 0, "K :" =GET # 
1 ,K:IF K=74 THEN 1680 
1670 RETURN 

1680 GRAPHICS :POKE 82,0:PGKE 752,1 :POK 
E 710,255:POKE 712,255 :POKE 703,201 :2L=P 
EEKC5603+PEEKC561 3*256+6 
1690 POKE HL-3,70:POKE 2L,6 
1700 POSITION 6,0:PRINT #6 ;''d i amonds " 
1710 PRINT " 2ig! des Spiels ist es, 3 Di 
amanten zu- sammenzufuegen. " 
1720 PRINT "Um deinen Feinden zu entkomm 
en , bewirfst du sie mit den Diamanten und 

Kloetzen." 
1730 PRINT "Das geht aber nur,ui©nn dahin 
ter kein an-derer steht, sonst explodiert 

der K I otz. " 
1740 PRINT "Hiefuer drueckst du den Feue 

rknopf . " 

1750 PRINT "Sind einmal Diamanten zusamm 

en9eschoben, lassen sie sich aber nicht m 

ehr trennend " 1 

1760 PRINT "Da deine Gegner Geister sind 

, kommen sie baid wieder. Jetzt musst du n 

ur ueber sie"; 

1770 PRINT "h inwe 9 rennen, dann passiert d 

asselbe von neuem." 

1780 PRINT "Du besitzt 3 Leben und bekam 

mst jede . 25000 Punkte ein neues dazu. 

•i 

1730 PRINT "Oben links steht deine So I I z 

eit daneben deine uebr ! ggeb 1 i ebenen Lebe 

n. Unten die" 

1800 PRINT "Punktzahl und die Runde in d 

er du bist." 

1810 POSITION 7,22:PRINT "DRUECKE IRGRND 

EINE TASTE 2"°GET #1,K:P0KE 764,255" 

1820 GRAPHICS 18-P0SITI0N 4,0=PRINT #65" 

ERLAEUTERUNG" :P0KE 756, CH/256 ^POKE 710,1 

96:P0KE 709,27 

1830 RESTORE 1840 'FOR 1=1 TO 8=READ A,B, 

C: COLOR A:PL0T B,C:NEXT I -FOR 1 = 1 TO 300 

'NEXT I 

1840 DATA 7,5,5,162,6,5,29,7,5,36,12,5,2 
3,14,5,34,7,6,29,8,6, 162,14,6,163,165,32 
1850 FOR 1=1 TO 3:READ A^COLOR A^PLOT 6, 
5:F0R J=1 TO 4=NEXT J :NEXT I 



Computronic 



1860 POSITION 6,10:PRINT #6;"5 PUNKTE" :F 
OR 1=1 TO 350:NEXT I ^COLOR 32:PL0T 6,10: 
DRAWTO 14,10 

1870 COLOR 32=PL0T 5,5=C0L0R 7:PL0T 6,5: 

FOR 1=1 TO 180:NEXT I 

1880 COLOR 32 PLOT 7,5^C0L0R 29=PL01 8,5 

•POSITION 6,10:PRINT #6 ;"5 PUNKTE" =FOR I 
-1 TO 100:.NEXT I 

1890 FOR 1=8 TO 12:C0L0R 32:RL0T I,5?C0L 
OR 29:PL0T I+1,5:IF K>11 THEN 1910 
1900 POSITION 5,10:PRINT #6 ; " 1 00 PUNKTE" 
=FOR J = 1 TO 100:NEXT J 

1910 IF K12 THEN FOR J=1 TO 5»NEXT J :NE 
XT I 

1920 COLOR 30:PLOT 13,5:PL0T 14,5:P0SITI 
ON 5,10:PRINT #6;"200":FOR 1=1 TO 350: NE 
XT I :COLOR 32:PL0T 5,10 
1930 ÜRAUTO 15,10:PLOT 6,5:C0L0R 13:PL0T 

6,6:F0R J = 1 TO 40:NEXT J : COLOR 32:PL0T. 
6,6:C0L0R 7:PL0T 7,6 

1940 POSITION 5,10:pRINT #6;"50 PUNKTE": 
FOR 1 = 1 TO 350:.NEXT I :COLOR 32:PL0T 5,10 
■•DRAWTO 15,10 
1950 FOR 1=8 TO 12:F0R J=l TO 5=NEXT J :p 



LOT I,6:C0L0R 29:PL0T I+1,6:C0L0R 32:NEX 
T I 

1960 COLOR 30:PLOT 13, 6 ^POSITION 4,10:PR 
INT #6;"2000 PUNKTE" =FOR 1=1 TO 350:NEXT 
I 

1970 POSITION 4,10:PRINT #65" Start? 
1980 IF STRIGC0D AND PEEKC53279D <>6 THEN 



1990 RETURN 

2000 PM=PEEKC106D-16:POKE 54279, Pn °P(1B=P 

1*256 =POKE 53277,3 

2010 FOR I=PNB+512 TO PflB+639 :POKE 1,0 =N 

EXT I : RESTORE 2040 

2020 FOR I=PMB+512+57 TO PI1B+5 1 7+57 :READ 

fi:POKE I,A=NEXT I 
2030 POKE 53248,0:POKE 623,1:RETURN 
2040 DATA 56,109,127,127,125,56 
2050 POKE 559,46:F0R 1=40 TO 64=S0UND 0, 
135-1*2,14, 10:POKE 53248, I :NEXT I =SOUND 
0,0,0,0 

2060 POKE 53248, 0=COLOR 137=PL0T 1,5:RET 
URN 
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Der eigentliche Teil des Program- 
mes läuft in Maschinensprache ab, 
lediglich das Steuerprogramm, mit 
dem einige Parameter eingestellt 
werden können, ist in Basic ver- 
faßt. 

Sie überfliegen mit Ihrem Expeditions- 
schiff eine Wiese und gelangen so zum 
Eingang einer Höhle, die übrigens je- 
desmal neu und zufallsgesteuert er- 
zeugt wird. Ihr Schiff läßt sich mit den 
Tasten >6< (nach unten) und >7< 
(nach oben) bewegen. Durch Drücken 
der Taste >0< wird die Bordkanone 
ausgelöst, die sich, durch Halten der 



>0<-Taste, auch mit Dauerfeuer be- 
treiben läßt. Allerdings nimmt pro Be- 
tätigung dieser Waffe auch Ihr Ener- 
giestand ab. Ist dieser bei >0< ange- 
langt, versagt Ihnen die Kanone ihren 
Dienst. Deshalb empfiehlt es sich, den 
ständig lauernden Gefahren auch ein- 
mal durch Flugmanöver auszuwei- 
chen, denn diese verbrauchen keine 
Energie. Das Gestein der Höhle läßt 
sich übrigens zerschießen. Es ist also 
möglich, soweit der Energiebestand 
das zuläßt, sich seinen eigenen Weg zu 
bahnen. Im Gegensatz zu den Ge- 
steinsbrocken, erhöhen die Köpfe der 
Spinnen, die überall herumhängen, 
Ihre Energiereserven. Die Spinne wird 
bei einem Abschuß außerdem voll- 
ständig eliminiert, d. h. auch der Fa- 



den, an dem der Spinnenkopf hängt, 
verschwindet. Die andere Möglich- 
keit, eine Spinne zu beseitigen, ist die, 
den Gesteinsbrocken, an dem sie 
hängt, abzuschießen. Allerdings gibt 
diese Alternative keine Punkte. Eine 
weitere mögliche Gefahr, die Sie zum 
Scheitern verurteilen könnte, sind die 
„giftigen Blicke", die die Spinnen von 
Zeit zu Zeit aussenden. Diese Blicke 
durchdringen alles und haben es auf 
Ihr Schiff abgesehen, das bei einer 
Kollision sofort den Geist aufgibt. 
Durch ein Zusammenprallen mit ei- 
nem Ihrer Geschosse wird jedoch 
auch der „Blick" ausgelöscht. Sollten 
Sie diesen 1. Teil überstanden und 
nach ca. 1 200 km Flug noch am Leben 
sein, geht es dann automatisch in den 
2. Teil: 

Ein „Sulp" taucht auf, die Höhle wird 
zu einem Tunnel. Der „Sulp" bewegt 
sich zufällig zwischen den Begrenzun- 
gen des Tunnels rauf und runter und 
dabei regelmäßig vorwärts. Ist er Ih- 
rem Schiff nahegekommen, fängt er an 
zu blinken und wird langsamer. Sie 
müssen auf jeden Fall eine Kollision 
mit ihm vermeiden, was sehr von Ih- 
rem Geschick abhängt. Um Ihnen das 
Überleben so schwer wie möglich zu 
machen, schießt der „Sulp". Diese 
Schüsse sind aber gleichfalls ab- 
schießbar. Nicht vernichtbar und des- 
halb eine große Gefahr sind die Hin- 
dernisse, die der „Sulp" aufbaut. Es 
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muß daher auf jeden Fall verhindert 
werden, daß dieser alles zumauert und 
ein Weiterkommen ausgeschlossen 
wird. Trifft man einen „Sulp", gibt dies 
40 Punkte auf das Energiekonto. Ein 
anderer Weg am „Sulp" vorbeizukom- 
men ist durch die Möglichkeit gege- 
ben, ihm einfach auszuweichen. Ist er 
verschwunden, erscheint in der 2. Si- 
tuation der „Morg": 
Dieser gibt bei Abschuß 90 Punkte. Es 
gilt, in ihn einzudringen und sein Hirn 
zu zerstören. Vorher muß man aber 
die Stellen ausmachen, an denen er 
empfindlich ist und die sich folglich 
durchschießen lassen. Der „Morg" 



taucht wie gesagt nur auf, wenn der 
„Sulp" nicht zerstört wurde. 
3. Teil: Er entspricht weitgehend dem 
1. Teil und unterscheidet sich ledig- 
lich durch seine individuelle Ge- 
schwindigkeit und Beschleunigung. 
Nach 6000 km Flug ist man dann am 
Ziel angelangt, der „Gruft der Spinne" . 
Verliert man ein Schiff, wird die bis 
dahin erreichte Energie auf das „Punk- 
te-Konto" übertragen. Sind am Schluß 
noch Schiffe vorhanden, erhält man 
für jedes Schiff die jeweilige Energie - 
pauschale. In die High-Score-Wer- 
tung kommt nur derjenige, der bis zur 
Gruft durchgehalten hat. 



Jedem Spieler ist es selbst überlassen, 
sich sein eigenes Spiel mit seinen spe- 
ziellen Werten zurechtzulegen. Es 
empfiehlt sich aber fürs erste, einmal 
die vorgeschlagenen Werte einzuge- 
ben, um Erfahrungen zu sammeln. Im 
„Standard" -Modus ist es dann mög- 
lich, die Anzahl der zur Verfügung 
stehenden Schiffe zu bestimmen sowie 
den Schwierigkeitsgrad zu wählen. 
Dann werden die dem Schwierigkeits- 
grad entsprechenden Werte eingepo- 
ked, und das Spiel kann beginnen. Exi- 
stiert ein High-Score, wird dieser in 
der untersten Zeile ausgegeben. 



* LISTING 1 * 












© REM 




1320 Z^XCHEM 




10 POR 


N =15514 


TO 13265 




20 INPUT ft 












3ß POKE H t fi 












4© S GROLL. 












5© PRINT N, 
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©& NEXT H 












* MC-LISTING 


X * 










16514 


237 


106 


80 


107 


174 


106 


15520 


9 


3 











112 


16525 


107 


132 


106 


45 





20 


15532 








214. 


10t> 





38 


15533 


2 


7 


33 








54 


15544 


153 


54 


52 


a 


50 


138 


1655© 


64- 


62 


2 


50 


137 


64 


16556 


62 





50 


148 


64 


50 


16562 


149 


64 


50 


152 


64 


42 


16568 


12 


64 


17 


•105 


1 


25 


16674- 


34 


133 


64 


17 


165 





16580 


25 


34- 


132 


54 


42 


12 


16566 


54 


17 


14-1 


1 


25 


34 


165Ö2 


134 


64 


62 


£3 


50 


147 


16593 


64 


62 





5ß 


133 


54 


15604 


5© 


139 


54- 


50 


140 


64 


1881©- 


33 


50 





34- 


145 


64 


16616 


62 


263 


SS 


36 


67 


42 


1662S 


12 


64 


35 


34- 


93 


•"^Ft 


16623 


62 


18 


1 


31 





£37 


15634 


ä.78 


245 


151 


13 


19 


35 


1S64S 


19 


35 


24-1 


61 


32 


24® 


16S46 


17 


33 


© 


42 


13© 


64 


16652 


167 


58 


148 


64 


254 





1665S 


40 


34 


214 


10 


58 


14S 


18664- 


64 


4S 


12 


60 


50 


148 


16670 


64- 


167 


5S 


136 


64 


254 


1667& 


s 


24 


36 


254 


13 


40 


15662 


4 


60 


50 


143 


64 


SB 


16683 


136 


64- 


254 


5 


24 


ii 


156S4 


237 


95 


203 


87 


53 


136 


15700 


64 


4Q 


13 


254 


1 


40 


15706 


IS 


61 


237 


82 





24 


15712 


6 


254 


9 


40 


3 


60 


16713 


25 


34 


130 


64- 


50 


13c 


15724 


64 


71 


54 


136 


237 


SS 


16730 


© 


16 


24-9 


42 


132 


64 


16736 


58 


14-8 


64 


254- 





40 


16742 


6 


254- 


4-5 


4-0 





24 


1574-3 


5 


167 


237 


95 


203 


79 


16754- 


53 


137 


64 


32 


3 


2S4 


15760 


1 


40 


:ls 


51 


25 


23- 


16768 


3 


254 


4 


4-0 


10 


6© 


16772 


337 


32 


35 


34- 


132 


64 


16778 


50 


137 


64 


71 


54- 


135 


15734 


25 


16 


251 


58 


152 


54 


16790 


254 


© 


194 


136 


56 


S'es 


18796 


14-3 


64 


254 


13 


194 


178 


16802 


66 


58 


149 


64 


254 





•18303 


32 


21 


237 


95 


214 


as» 
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c) 
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c) 



Zuerst muß eine Rem-Zeile der Länge 1820 Zeichen 
erzeugt werden. Die erste und bequemste Möglichkeit, 
eine Rem-Zeile dieser Länge zu erzeugen, besteht in der 
Verwendung des Rem-Zeilen-Generators aus Heft 5/84. 
Sollten Sie auf diese Möglichkeit nicht zurückgreifen 
können, gehen Sie bitte folgendermaßen vor: 
a) Geben Sie die Rem-Zeile 1 mit 160 Zeichen ein. 

EDITieren Sie diese Zeile und erzeugen Sie dann 

noch 10 weitere gleichartige Rem-Zeilen (Zeile 

2-11) 

POKE 16511,30 NEWLINE 

POKE 16512,7 NEWLINE 

POKE 16510,0 NEWLINE 
Ächtung: Führen Sie diese Anweisungen direkt hinter- 
einander aus, da sonst das System abstürzen 
könnte. 
f) LIST NEWLINE 

Als nächster Schritt geben Sie das Listing 1 ein, das zur 
Eingabe der Maschinensprache-Zahlen dient. Nach der 
Eingabe starten Sie das Programm mit RUN; die Eingabe 
der Zahlen aus MC-Listing I kann beginnen (von links 
nach rechts). Da es in Anbetracht der Menge der Zah- 
len wahrscheinlich ist, daß sich der eine oder andere 
Fehler einschleicht, wurden die Programme 2 und 3 
beigefügt. Listing 2 berechnet die Prüfsummen, Listing 3 
schreibt die Speicherinhalte auf den Bildschirm. 
Wenn Sie ein fehlerfreies Maschinenprogramm vorlie- 
gen haben, löschen Sie die Zeilen einzeln und geben das 
Basic-Hauptlisting ein. Nachdem Sie auch dies erledigt 
haben, starten Sie das Programm mit RUN und wählen 
„NEU EINSTELLEN". 



Das Eingeben neuer Werte: 

1. Geschwindigkeit Teil 1-3: Je größer die Zahl, desto 
langsamer. Die Gesamtgeschwindigkeit hängt jedoch 
auch noch von Punkt 4 und 5 ab. 

2. Beschleunigung Teil 1-3: Je größer die Beschleuni- 
gung, desto schneller nimmt die Geschwindigkeit 
des jeweiligen Teils zu. 

3. Länge Morg: Der Wert gibt an, wie weit die Pfosten 
des Morg auseinander sind- Dabei gilt: Je weiter, 
desto leichter. 

4. Beweglichkeit: Sie gibt an, um wieviel das Schiff 
nach unten bzw. nach oben bewegt werden kann, 
bevor es sich einmal vorwärtsbewegt. 

5. Schußweite pro Bewegung: Der Wert gibt an, um 
wieviel der Schuß vorankommt, bevor eine Bewe- 
gung des Schiffs möglich ist. 
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16314 


sie 


7 


67 


16? 


16320 


50 


149 


54 


4£ 


16828 


SS 


25 


25 


£4 


16332 


■ 50 


149 


CT 4 


254 


15833 
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£14 


10 


45 


16344 


So 


149 


te>4 


203 


I53S0 


11 


42 


15© 


64 


15S56 





35 


6 


52 


16 ©es 


42 


150 


64 


43 


1&S68 


64 


54 


© 


& 


1667 4 


SS 


2©3 


79 


4ß 
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SS 





iSS 


254 


16336 


1 


25 


24 


S 


16892 


254 


d 


4© 


£ 


16898 


112 


34- 


ISO 


54 


15904 


140 


54' 


£54 





15913 


237 


95 


214- 


153 


15916 


167 


34 


141 


54 


3.S9SS 


14-7 


64 


62 


1 


159S8 


©4 


237 


SS 


£14 


15934 


3 


157 


54 


11 


1694© 


57 


62 


1 


50 


16946 


4.2 


13t? 


64- 


17 


16952 


25 


£5 


54 


132 


1595S • 


19 


25 


54 


123 


159S4 


54 


3 


£37 


S£ 


1S97& 


es 


8 


54 


136 


15976 





237 


SS 






16982 
16983 
16994 

17©00 

17006 

17012 

17015 

.170 £4 

17 ©30 

17035 

17Ö42 

17046 
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* LISTING £ * 

9100HFQR N =16514 TO 18213 STEP 1 

00 

911© LEI S=© 

9120 FOR X-0 TO 99 

9130 LET S=5+PEEK (X+N) 

9140 NEXT X 

91S0 PRINT N; " - ";M4-99;" ;",S 

9 ISO NEXT N 

9170 LET 6=0 

9180 FOR N=18214 TQ 18260 

9190 LET 3-3 +PEEK N 

9200 NEXT N 

9210 PRINT "18214 - 1826© : ' f * 



* PRUEPSUHHEN 



17014 
17114 
17214 
17314 

17414 
17514 
17814 

17714 
17314 
17914 
18014 
13114 
13214 



17113 
17213 

17313 
17413 

17513 
17613 
17713 
17813 
17913 
18013 
18113 
13213 
13260 



3193 
8435 
8877 
7965 
7973 
3610 
35^5 

S4S1 

9053 
7525 

3040 
4951 



* LISTING 3 # 



TO 13250 STEP 6 



9©0öiFOR N=1S514 

9010 PRINT N; 

3030 FOR X=0 TO 5 

9025 LET SaPEEK SX+N) 

9030 PRINT TRS S+4*X-MS<183 

©0} ; 5; 

904© NEXT X 

9050 PRINT 

9060 NEXT N 



-*- (S<1 



153 14 

16614 
16714 
16314 
16914 



18 fr 13 
16713 
16813 
15913 
17013 



6335 
8430 

9051 
7965 
7475 



* SPINNEN * 

* HRUPTLISTING * 



REM 1S20 ZEICHEN 

2BREM CC1BV MARTIN RIEDKILLER 
BfiTSCHKflER «ES 13 
7208 SPRICH INGEN 
0742 4. -'33 50 



5 

10 
11 
12 
13 
15 
16 
17 
18 
IQ 
20 
21 



TEL. 

CLEflR 

REM HflUPTMENUE 
C*1U 
R (5, 11) 
B ( 153 

BilJ =17294 
BC23 =17741 
8(33 -17715 
BC4) =17763 
B (53 =17746 
BiS) 
B(73 



DIM 

DIM 

DIM 

i_ET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

* * 

LET 

CLS 

LET 

LET 

PRINT 

PRINT 



=17720 
=16937 
B tS) =17160 
6(9) =17291 
B ilO) =17622 
B (11) =17293 
B (12) -17740 
3 (13) =17714 
B (14) =18259 
B (153 =18260 
B$="* * * * 

H$="08@00" 



SPINNEN 



23 
24 
25 
25 
S7 
23 
29 
30 
* * 
31 
35 
36 
37 
40 
45 
IONEN . 

50 PRINT ...... , "R> STRN0RRD" 

60 PRINT , ,"Bi NEU EINSTELLEN" 
7© IF INKEY$ = *'R" THEN GOTO 118 
8© IE INKEY$ = "S" THEN GOTO 52© 
90 PRINT RT 5,0; 



bwMw ItR IGKE 



C=2 
SG=1 



RT S/0; "# SPIELURRIRT 



10© GOTO 45 

110 REN STRNDfiKD 

120 GOSUB 400 

130 PRINi RT 7,0; " 

X ll| R LET SG=CODE INKEY$-£3 __ 

150 XP SG>0 RND- SO «6 THEN GOTO 

S 160 PRINT ,,,"13 SEHR_LEICHT" 

170 PRINT , ,;;f) LEXCHt 

18© PRINT .. j 3) MITTEL 

1_«i0 PRINT , . "'4) SCHWER 

20§ PRINT n-S) SEHR SCHWER" 



Computronic 



21© PRINT RT ? , © ; 



aST.&eB'aßt 



S© SOTO 139 

330 PRINT Se 

24-0 FOR H~l TO ü 

250 LET C IN.« =R (Sß .hn 

260 NEXT N 

27© GOTO D©S@ 

4-00 REM RNZRHL SCHIFFE 

41© CLS 

4 IS PRINT S$ 

w $g® Pf ?J w J , ßT s*»J"* uieuiele sc 

HIFFE (1-9) "; 



LET RS -CODE 
IF RS>0 RND 



430 
4.4-0 
4.70 
450 PRINT 



IFFE" "* 1 t-Q> 



INKEY$-28 

fiS<iß THEN GOTO 



RT S^0; 



GOTO 420 

PRINT RS 

LET S = RS-2 

POKE 16539,5 

IF RSsl THEN POKE 16539,255 

RETURN 

REM SPEICHERN 7 

CLS 

PRINT 8$ 

PRXNT RT 5,0; "WOLLEN SIE :" 
'R) DIE WERTE UNTER EINEM BE 
>ff SCHUIER IGKEITSGRflD EJNSE 

PRINT # /'BJ NACH EINGfißE ZU 

SPIELEN 7" 

IP INKEY$o"ft" THEN GOTO 5S 

GOSUB 2©0© 

SOTO 6O0 

XP INKEYJo-B- TrilZN GOTO 57 

LET C-s=0 

REH NEU EINSTELLEN 

CLS 

PRINT BS 

PRINT , ,"* HEU EINSTELLEN ; 

64© PRINT . « 
65© FOR Nsl'TO 3 

660 PRINT "* GESCHWDSKEIT, TEIL 
H; : " : <" f " ANP C=13 ; f?STH* R 



460 
47© 
4S0 
490 
500 
510 
SS0 
530 
540 
550 

•• f * j 

ST. 

BEN - 
SSO 

ERST 
S70 



575 
57? 



60© 

610 

62Ö 
630 



( SG , N J J RND C ss 1 > ; f 



RND C=l> 



'« INPUT C(Nj 

LET C CN3 =INT C (N3 

IF C CNJ <© OR C CNJ >255 

67© 

PRINT C CNJ 

NEXT M 

PRXNT 

FOR N=I TO 3 

PRINT "* BESCHLEUNIG« 



676 

680 

GOTO 

690 

70S 
710 
720 
" .: N ; 
CbG, N-t-3} 3 



THEN 






RND C=iS 
C = l.> ; f " i " 



EIL 
v tSTffJ R 
AND C*iJ 



C C3+N) 

C (3+NJ >255 



73© INPUT CC34-N) 

735 LET C (3+N) sINT 
740 IF CC3+N)<<5 OR 
HEN GOTO 73© 

750 PRXNT CC3+N) 
760 NBXT N 

770 PRINT , ,"* LflENSE HORG (5-S 
j . .. ; (» { « RNI> c _ a) ; { CSTR$ PCS 
G,7)J FtN& C = 1J;€"J" RMD C=if; 

780 INPUT CC7.s 

79© LET C(??-INT CC7J 

S e g * p CC7) <5 OR C (?) >8 THEN GO 
TO 780 

610 PRXNT CC7) 

82© PRINT , ^"* BEWEGLICHKEIT (2 
~ 5 1» : ' ; (" £" RND C = 1J ; c tSTRft R CS 
G,S)> RND Cai); f")" RND c*l*; 

830 INPUT C CS) 

840 LET CiSJsXNT C «©) 

850 IF CCSJ <2 OR C CSS >S THEN GO 
TO 830 

c csi 

, ,"* SCHUSSWEITE PRO 



86© PRXNT 
870 PRINT 
BEWEGUNG 
875 PRINT " £2-53 

^ ,'Hi.S"l" RND C = l) ; ( iSTR* 
9J ) RND C-Xi ; t")" RND Cöl) 

890 INPUT C (9) 

900 LET C€9)aXNT C f 93 



R iSG 



910 IF C (25 <& OR ct9) >S THEN GO 
TO SSO 
928 PRINT 



930 

G , 10} 
940 
950 

960 



PRINT 
: "; f" 
> RND 
INPUT 
LET C 



C9J 

, "* SCHUSSLRENGE C2- 

RND C-I5 ; t VSTR* ft f« 

=1) ; ("i " RND c«ij ; 

(10) 



ClÖi ä INT 



C C10J 
IF CC10) <2 OR CC1SJ >25 THEN 
GOTO 94© 

970 LET CS1©)^CINT 
8) > *C (9) 



CC C10.1 .-C i"9.l + 



98© PRINT Cfl0> 

990 PRINT ,,"* ENERGIE •SCHIFF K 

*10) i"ii :, i" RND C=l) ; ( (STR* ft(S 
G,ll)> RND C=1);C"J" RHD C=l> ; 

1000 INPUT C<113 

1010 LET C{11J=INT C(1IJ 

1020 IF Cfll) <0 OR C(il) >100 THE 
N GOTO 1©00 

1030 PRINT CC11J 

1040 GOSUB 400 

1050 IF C=l THEN GOTO 214© 

1070 GOTO 3000 

2000 REM WERTE SPEICHERN 

aei© cls 

202© PRINT B$ 

2030 PRINT RT 5^0;"* WERTE SPEIC 

HERN" 

2040 PRINT RT 7,0;"* UNTER SCHWX 

ERIGKEITSGRRD : "; 

2045 LET SG=CODE IM.KEYS-23 

204? IF SG>0 AND &G<& THEN SOTO 

212© 

!> SEHR LEICHT' 

:) LEICHT" 



2050 PRINT 

2060 PRINT 

2070 PRINT 

2080 PRINT 

2090 PRINT 



2100 PRINT RT 



t t 

> ,"33 

.. >"4) 

, ."53 



MITTEL" 
SCHWER" 
SE HR SC HWER" 
ßi "I 



2110 GOTO 2040 

212© PRINT SG 

2125 IF C=s0 THEN GOTO 214© 

2130 LET C=i 

2135 RETURN 

2140 FOR Nal TO 11 

2150 LET R(SG,NJ> aCCN) 

2160 NEXT N 

217© CLS 

2180 PRINT B$ 

219© PRINT RT 5,©;"* SRVSN 7 Cüy 

|2©0 IF INKEY$="J" THEN GOTO 22* 



RND C=© THEN 



S8i§ äSoä NKEY * as " N " RNO c=:1 TH£N 

222© PRINT RT S,©;"| 



GOTO 219© 
SRUE "SPINNEflB" 

GOTO 35 

REM SPIELSTRRT 

FOR N=l TO 10 

POKE E <N) ,€. (N) 

NEXT N 

FOR N=il TO 15 

POKE & iN) ..© 

NEXT N 

POKE 18535 , 5 

IF RS =2 THEN f>OKE. 16539 

POKE 15418,0 

POKE 16511, Cfil) 

POKE 17005,C(7) 

LET E$=STR$ C(li) 

CLS 

PRINT " mmm 



2230 
2240 
225© 

3000 

3O0S 

30 10 

3015 

3020 
3025 
3«330 
3031 
3032 
3035 
3036 
3037 
3038 
3040 
305© 



3050 PRINT 

3070 PRINT 

£ ££ £ 

i i e £ i 

30Q0^PRINT^' 

3090 PRINT 



255 




RT 

RT 

£ 



12,0; 
15 ..©; 
£ £ 



t * * t t 



t i t I f 



* 



*mim 
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«r- 



Ixm 



3100 PRINT "ENERGIE 00"; <"©'* AND 

LEN E*=1J ; E$; "0 „ ilfc , KM 00000;, 

3110 PRINT "REST '* '"■&«-"" ";3+l; 

SCORE ©0000" 

3120 IF H$= "00000" THEN GOTO 31* 


3130 PRINT .. ,"* HIGH SCORE UON " 

314.0 PRINT AT 10 , 0; "TASTE BITTER 

3150 IF INKEY*="" THEN GOTO 3150 

3160 PRINT AT 10,0; " 

3170 LET L=USR 1S540 „ 

313© PRINT RT £1,11; ("0 AND P 

FEK 16539=255) 

3130 LET SC «PEEK 13259f256*PEEK 

18250+PEEK 16529+2S6JPEEK 16530 

3192 LET SC=SC+C(il)*t (PEEK 1653 

9+1) RND PEEK 16539<>£55) 

3195 LET S$=("000*' RND 5C-tl0J + K" 

00" RND SD<100? + i"B" RND SC < 1000 

J +STR* SC-i-"8" 

3200 PRINT RT ai,fi3;S* 

3203 IF PEEK iS537+£56*PEEK 1853 

8OS00 .THEN GOTO 35Ö0 

3204- PRINT RT 2©.. 19; "f 

320S POKE 13073,20 

3207 POKE 13104,201 

3203 LET L=USR 1807S 

3209 POKE 13073,1© 

3210 POKE 13104- ,53 
3214- GOSUB 4000 

3215 REM HIGH -SCORE 7 

3220 IF URL S*4UAL H$ THEN GOTO 

359© 

323© LET H$=S$ 

3260 CLS 

IUI PRINT "»'HERZLICHEN SLÜECKW 

uN5CH",i/' ";H$; PU>H 

KTE"7,' Ä * C>fl6 IST DER NEUE HIGH* 

CORE" 

3290 PCR N=l TO 2ß 

3300 PRINT RT 6,19;"! 



3310 PRINT RT 6 , 19; "HIGHSCORE" 

3320 NEXT N 

333© PRINT RT 10,0;"-« BITTE &EBB 

N SIE IHR KUERZEL EIN Cl-4) " 

3335 LET NäS = *"" 

3335 PRINT AT 20,0;" 

3337 PRINT RT 15,20;" 

3338 PRINT RT 15,©;"* NEUER HI -5 
CORE UON : "; 

3339 FOR N = l TO 4 

334-0 IF INKEY$<>"" THEN GOTO 334- 



334-3 IF INKEY$ = "" THEN GOTO 334-3 

334.5 LET R*=INKEY$ 

334-6 PRINT R*; 

3350 LET N$aN*+R$ 

3370 NEXT N 

3380 PRINT RT 20,0;"* O.K. 7 (J/ 

N) " 

3390 IF INK£Y*="U" THEN GOTO 350 

S 

34.00 IF INKEY*-"N" THBH GOTO 333 

5 

34-10 PRINT RT 20,0;1 



3420 GOTO 3330 

3500 REH NEUES SPIEL ? 

3501 PRINT RT 10,0; "TRSTE BITTE" 

3502 IF INKEY4-"" THEN GOTO 3SOS 
-3585 POKE 164-1©, 2 

351© CL5 

3520 PRINT B$ 

3530 PRINT RT 5,0;"* HENÜE :" 

3540 PRINT , ;"!> DASSELBE NOCH E 

INMRL" 

3550 PRINT , ,"2> SPIELART flB^&ER- 

N" 

3560 PRINT ,,"3) AUFHOEREN" 

3570 PRINT , , "4-i WERTE SPEICHERN 

" AND Cs0 _ 

3580 IF INKEY*«"1" THEN GOTO 30® 



3590 IF INKEY$="2" THEN GOTO 35 

3500 IF INKEY*-"3" THEN GOTO 99g 

9 



3610 IF INKEY$ = M 4-" AND C=© THEN 

GOTO 3700 

3520 PRINT AT 5,0; "1 

363Ö GOTO 3530 

3700 GOTO 2000 

3710 LET C=2 

3720 GOTO 3510 

4.000 REH ZIEL ERREICHT 

4.001 PRINT AT 10,0; "TASTE BITTE" 
IF INKEYS-*"" THEtN GOTO 4-002 








O. . * 


s 




O- . * 


>* 




O, . 


.-• 




O, . 


00 


y 


O* 


OOOO 




O, 


OOOOO 


/ 


O 


OOOO 




O 










4-120 LET R 
4130 LET Rfe 



4-14-0 LET A $ = 

. .0 _ „ 
4150 LET A«J» = 

. .O 

4-160 LET A*« 

. . .0 

4.170 LET R$~ 

. . .O 

4-160 LET A$=A 

... .O 

4-19© LET A$=A 

... .O 

4.200 LET R$=A$+, 

O 

4210 LET A$=A$± 

O 

4.220 LET A$=A$+ 
O. .0 W 

4-230 CLS 

4240 PRINT A* 

4-250 REM LRUFTEXT _ ^-.c«« B 

4.260 LET A*= S "SUPER SIE HABEN E 

S ALSO GESCHAFFT.." „„ 

^ZB.^^lZSM^S^^!l D SIND IN *F' ER 

4^60 lSt A*3a* + , ^TdE N SCHATZ , DEN 
SIE LINKS SEHEN, DUERFEN SIE MITM 

A29© N LET A$=A*+". -ALLERDINGS NUR 
SO&IEL.WIE SIE MIT IHRER GEUONN 

I300 let R a$5a*$+"transportieren K 

0ENNEN" 

4-31Ö LET fl$«ft* + "...i>ßS SIND IMME 
RH IN **+S* + " PUNKTE FUER IHR AßEN 
TEURERKONTO. 

4-320 LET A*=R*4-" * ***HERZLICHEN G 
LUECKUUNSCH****" 
4330 LET A$=A*+" 
TASTE BITTE " 
4340 FOR Nsl TO LEN R* 
435© LET L=USR 17274 
4-360 PRINT RT 23,31jA$(N3 
4-365 FOR X-l TO 1 
4-366 NEXT X 
4-370 NEXT N 
4-380 FOR N = l TO 19 
4-39© LET L=USR 17274- 
4-400 FOR X = l TO 1 
4410 NEXT X 
442© NEXT N 

443© IF INKEY* = *'" THEN GOTO 4-430 
4-440 RETURN 
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LOPP* 6 




dl| Rolan 
Gral 



PAINTER ist ein Zeichenprogramm zum 
Erstellen von hochaufgelösten grafischen 
Darstellungen auf dem APPLE H-Computer. 



Es unterstützt den Benutzer durch vie- 
le Spezialfunktionen. Wenn man sich 
mit diesem Programm eingearbeitet 
hat, kann man die tollsten Grafiken 
erstellen. Perspektivisches Zeichnen 
ist auch möglich. Man muß eben alles 
mal ausprobieren, um zu sehen, was 
das Programm leistet. 
Eine in den Programminstruktionen 
nicht erwähnte Funktion ist die 
„HELP "-Funktion. Sie wird durch 
Drücken der Taste „H" angesprochen 
und setzt dann Orientierungspunkte 
auf den Bildschirm, die durch nochma- 
liges Drücken der Taste „H" wieder 
gelöscht werden. 

Vor Eingabe des Basic-Hauptprogmmms 
muß noch folgender Hexdump eingege- 
ben werden: 
CALL- 151 

* 300: 01 00 04 00 04 00 00 00 
Dann wird er auf Disk gespeichert: 

* BSAVE PAINTER OBJ., A$300, 
L$07 



Danach wird wieder mit CTRL-C/RE- 
TURN ins Basic zurückgeschaltet und 



das Basic-Hauptprogramm eingege- 
ben. 



i REM 


**********»•**-****-**•* 




2 REM 


* * 




3 REM 


* - PAINTER - * 




4 REM 


* * 




5 REM 


* CO 19S4 * 




6 REM 


* * 




7 REM 


* WRITTEN BY * 




8 REM 


* ROLAND GRAF * 




9 REM 


* .* 




10 REM 


**^X*********-*-3f"***"**- 




1 1 POK 


E - 16302,0: H6R S HGR2 i 


HOME ; 


TEXT : 


POKE 232*0! POKE 233,3 
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12 
15 

20 
30 
40 
50 
6.0 
70 
80 
90 

100 
110 

120 
130 
140 
200 
210 
220 

230 

24« 
250 
260 
270 
275 
2B0 



290 
500 
510 
520 



PRINT CHR* <4)S"BL0AB PAINTER OBJ." 

BOTO 500 

ROT^ 0S SCALE= 1: HSR2 

: - 140JY = 96:F = l:R = 0:s = l 

RQT= R; SCALE= S 
AT x„y;xx 
(0) > 200 

(0) < 

(1) > 



XDRAW 1 

IF PDL 



IF 

IF 

IF 
IF 
IF 
IF 



= X;YY = Y 
AND X < 279 - 

50 AND X > F THEN 
200 AND Y < 191 - 



THEN 
= X 
THEN 
= y - 



X = 
F 

Y = 
F 



X + F 



PDL 
PDL 

PDL CD < 50 AND Y > F THEN Y 
PDL (6) = 255 THEN HCOLOR= 3: DRAU! 
PDL <5) = 255 THEN HCOLOR= 01 DRAW 
PEEK ( - 16384) > 127 THEN BET IN*1 
XDRAW 1 AT XX,YY 
SOTD 40 

REH EINGABE AUSWERTEN 

IF IN* ~ "-" AND R > THEN R = R - 1 ' IF 1 
IF IN* = "+" AND R < 64 THEN R = R + l: IF 



Y + F 



1 AT XX, YY 

1 AT XX f YY 

G03UB 200 



t ~ THEN R - 64: 
R = 64 THEN R = 



RETURN 
; RETURN 



IF IN* 
IF IN* 
IF IN* 
IF IN* 
IF IN* 
IF IN* 
IF IN* 



= CHR* (S) AND S > THEN S = S - l: RETURN 



CHR* €21) AND S < 255 
AND F > 

. AND F < 100 THEN F 
"C" THEN 20 
"Q" THEN XDRAW 1 AT X 



ii ii 

r 

h u 



THEN S = S + 1 = RETURN 
1 THEN F = F - l: RETURN 

= F + l: RETURN 



y: TEXT : GOTO 500 



_ II l_I II 



H 



THEN SCALE= l: ROT= 0: XDRAW 1 AT 0,0: XDRAW 1 AT 140,0 
XDRAW 1 AT 279,0: XDRAW 1 AT 0,191= XDRAW 1 AT 140,191: XDRAW 1 AT 
XDRAW 1*AT 0,96: XDRAW 1 AT 279,96: XDRAW 1 AT 140,96 



279,191: 
RETURN 
REM MENUE 
HOME 

INVERSE : PRINT 



";: PRINT 



PAINTER 



PRINT 



530 

540 
550 
560 
570 
580 

585 
590 

600 
610 
620 
630 
640 
645 

650 
660 

670 

680 
690 



NORMAL : PRINT 

PRINT "WOLLEN SIE-.- 1 ': PRINT 

PRINT "<1> EIN BILD LADEN" 

PRINT "<2> EIN BILD SAVEN" 

PRINT "<3> EIN NEUES BILD ANFANGEN" 

PRINT "<4> DAS BILD INVERTIEREN": PRINT "<5> INSTRUKTIONEN": PRINT "< 

6> DAS PROGRAMM BEENDEN" 

PRINT "<7> WEITERMALEN" 

VTAB 15: HTAB 1= PRINT "< 

M < 1 OR M > \7 THEN 590 



>": VTAB 15: HTAB 2: SET M*:M = VAL <M*> : IF 



IF M = 
IF M = 
IF M = 
IF M = 
IF M = 
IF M * 
30 

HOME : 
PRINT 



1 THEN 1000 

2 THEN 1100 

3 THEN 20 

4 THEN 1200 

6 THEN HOME 

7 THEN POKE 



PRINT "ENDE": END 
- 16304,0: POKE - 16297,0: POKE - 16299,02 GOTO 



PRINT "WIE MALT MAN MIT PAINTER ?" 
PRINT "DER 'STIFT' WIRD MIT DEM JOYSTICK" GE-": PRINT 



"FUEHRT" 



PRINT : PRINT "SOLANGE TASTE 1 GEDRUECKT IST, MALT DER": PRINT "'STIF 

T'" 

PRINT "MIT TASTE 2 WIRD GELOESCHT" 

PRINT : PRINT "AUF DER TASTATUR *BIBT ES FOLGENDE FUNK-": PRINT »TIONE 

N:": PRINT 
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700 
710 
720 
730 
74.0 
750 
755 

760 

1000 
1005 

1010 
1020 

1030 

1040 

1100 

1105 

1110 

1120 
1130 

1200 

1210 
1220 
1230 
1240 
1250 
12A0 



PRINT "TASTE 
FR INT "TASTE 
PRINT "TASTE 
PRINT "TASTE 



PRINT 

FR INT 



"TASTE 

" TASTE 



P 



STIFT VERGROESSERN" 
STIFT VERKLEINERN" 
STIFT DREHEN" 
STIFT ANDERSRUM DREHEN" 
GROESSERE SCHRITTWEITE" 
KLE I NERE SCHR I TT WE I TE " 
ZURUECK ZUM MENUE"; PRINT 



PRINT "TASTE 
LOESCHEN" 

PRINT : PRINT "BITTE EINE TASTE DRUECKEN.- „ . ": SET A* 

REM LADEN 

HOME 

PRINT "NAME DES ZU LADENDENBILDES ODER RETURN" 
: PRINT : INPUT ">";NA* 

IF NA* = "" THEN FR INT CHR* • <4) 5 "CATALDB" : GOTO 1010 

PRINT CHR* (4>5"BLOAD ,, 5NA*5" 5 A*4000" 

SOTO 500 

REM SAVEN 

HOME 

INPUT "NAME DES ZU SAVENDEN BILDES: "5 SA* 

PRINT CHR* <4>;"BSAVE";SA*;",A*4000.L$iFF8" 

GOTO 500 

REM INVERTIEREN 

POKE - 16304,0; 

SCALE= 192: RÜT= B 

FOR I = TO 279 

XDRAW 1 AT I 5 

NEXT : GET WE* 

TEXT : SOTO 500 



TASTE C = BILDSCHIRM 



SOTO 500 



PRINT "FUER CATAL06 



POKE 



16297, 



POKE - 16.299,0 
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Bitte -ausschneiden und senden an: 

Tronic- Verlag, Postfach 41, 3444 Wehretal 1, 

Hiermit bestelle ich die Zeitschrift »Computronic« ah Heft Nr „_ 

Jahresabonnementpreis (6 Ausgaben) von DM 35- incl. Versand, Inland 
und DM 45,- incl. Versand, Ausland. 



zum 



Name/Vorname: 



Straße, Nr. 



Plz, Ort: 



Ich wünsche folgende Zahlungsweise 
□ Bargeldlos durch Bankeinzug: 



Bankleitzahl: 



Geldinstitut: 

D gegen Rechnung 
D gegen Vorkasse 

(Betreffendes bitte ankreuzen) 



Konto Nr.' 



Datum, Unterschrift 



Abonnements-Kündigungen: 

6 Wochen vor Ablauf des Jahres- Abonnements. 

Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag 

widerrufen! 



Datum, Unterschrift 



Haben Sie ein gutes Programm 
geschrieben? 

Wenn ja - wir würden uns freuen, in Ihnen einen 
Anspreehpartner für eine künftige Zusammenar- 
beit zu finden. Der TRONIC- Verlag vereinbart 
mit seinen Software -Autoren pro veröffentlichte 
volle Seite ein Honorar von DM 120,-. Die Aus- 
zahlung erfolgt nach Veröffentlichung der Pro- 
gramme in einer unserer Ausgaben. Einzusenden 
sind: 

- Programmbeschreibung 

- bespielte Cassette oder Diskette 

- Listing (mit Copyright) 

- Freiumschlag 

Der Verlag wird vom Autor berechtigt, seine 
Manuskripte (Programm) zur Darstellung im Heft 
heranzuziehen und abzudrucken. 
Der Autor erklärt sich mit der Lieferung seines 
Programmes oder seiner Beiträge ausdrücklich 
bereit, die Verwertung durch den Verlag freizu- 
geben, d. h., er überträgt nicht nur die Nutzung, 
sondern auch die Übereignung des Computerpro- 
grammes und der Beiträge. -. - 

Der Autor verpflichtet sich nur solche Program- 
me anzubieten, die eigene Entwicklungen des 
Autors sind. 

Mit der Veröffentlichung oder dem Anlauf des 
Programmes und der Beiträge ist dem Verlag 
gestattet, auch eine anderweitige bzw. weiterge- 
hende Verwertung vorzunehmen, da der Autor 
dem Verlag das Copyright gegen Honorar gestat- 
tet hat. Die Verwertung durch den Verlag ist 
unbeschränkt und unwiderruflich, wenn nicht 10 
Tage nach Zusendung der Unterlagen durch den 
Autor widersprochen wird. 
Haben Sie Interesse? Haben Sie noch Fragen? 
Setzen Sie sich telefonisch mit unserer Redaktion 
in Verbindung! 

TRONIC-VERLAG 
DIE REDAKTION 
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Im Spiel stehen Ihnen 10 Durchgänge zur Ver- 
fügung. Pro Spieldurchgang hat jeder Spieler 2 
Kugeln. Allerdings mit zwei Ausnahmen: hat 
man mit der ersten Kugel abgeräumt, so ist der 
nächste Spieler an der Reihe. Wurde beim 10. 
Durchgang mit der 2. Kugel abgeräumt, be- 
kommt man noch eine 3. Kugel. 
Wird ein Spieler zum Wurf aufgefordert, blinkt 
sein Anfangsbuchstabe auf, der zuvor eingege- 
ben wurde. Nun starten und lenken Sie die 
Kugel mit folgenden Tasten: >A< die Kugel 
wird nach unten abgelenkt; >Q< die Kugel 
wird nach oben abgelenkt. 
Ist die Kugel am Rollen, kann sie mit einem 
zweiten Tastendruck abgelenkt werden. Jeder 
umgefallene Kegel ergibt einen Punkt. Hat man 
mit der zweiten Kugel abgeräumt, zählen die 
mit der nächsten Kugel umgefallenen Kegel. 
doppelt. Wenn mit der ersten Kugel abgeräumt 
wurde, zählen die mit den nächsten beiden 
Kugeln umgeworfenen Kegel doppelt. 
Geben Sie bitte zu Anfang die Anzahl der Spie- 
ler und den ersten Buchstaben des Namens ein. 
Als letzte Eingabe erfolgt die Geschwindigkeit; 
sie kann Werte zwischen 1 und 100 annehmen. 
1 = sehr schnell; 100 = sehr langsam. 




50 PRINT "1. Buchstabe des " 5 I 5 " - 

Spielers "5S INPUT N*(I>: NEXT 
I 

60 COLOFN 10: HOME 
70 INPUT "Beschwindigkeit Profi 1 
-> Anfaenger 100 "5UU7.: IF UU 

7. < 1 OR UU% > 100 THEN 70 
80 HOME 
90 FOR I = TO 39: PLOT 1,20: PLOT 

I f 4: NEXT 

110 COLOR= 15 

120 VTAB 20: PRINT "44 4 
4 4 4 4 4 4 4" 

130 PRINT N*(l) 

140 PRINT " 



1 DIM KU0> 

10 60SUB 1830: OOSUB 1700 

15 BR 

20 N*(2) - " ":F ~ - 2: HOME :S1 = 

0:B2 - 

30 VTAB 22: INPUT "Wieviel Spiele 
r max.2»5Z: IF Z < - OR Z > 
= 3 THEN 60 

40 FOR I - 1 TO Z 



150 PRINT N*<2> 

160 FOR V - 1 TO 10 

170 Q - 10:P1 = 0=P2 = 0:F - F + 4 

:P - 0:NN = 2 
180 SP - 

190 Q » 10: SP - SP + 1 
200 N = N +■ 1 
210 IF SP - 1 THEN FLASH : VTAB 

21: HTAB l: PRINT N*<1>: NORMAL 

5 VTAB 23: HTAB IS PRINT N*<2 

) 
220 IF SP = 2 THEN FLASH : VTAB 

235 HTAB 15 PRINT N*<2>: NORMAL 

: VTAB 21: HTAB ls: PRINT N*< 

1) 
230 IF ß < 10 THEN 270 
240 FOR I - 1 TO 4: FOR J « 1 TO 

I: PLOT 29 + 2 * 1,10 - 2 * I 
+ 4 * J: NEXT J: NEXT I 
250 FOR I = 1 TO 10:K<I) = l: NEXT 

260 Q ~ 

270 REM KÜBEL AM START 

2B0 S - i:Y ■ 4 

290 POKE - 16368,0 

300 FOR Y = Y + S TO Y + S * 14 STEP 

S 

310 PLOT 2,Y 

320 FOR I =1 TO UU7-: NEXT 
330 X * PEEK ( - 16384) :AA * X 
340 IF X > 127 THEN POKE - 1636 

8,0: SOTO 390 
350 COLOR^ 0: PLOT 2,Y: COLOR= 15 

360 NEXT 

370 S = .- S 

380 GOTO 300 

390 REM KÜBEL ROLLT 

400 A - - 

410 IF AA - 193 THEN A = - 12 

420 IF AA ■ 209 THEN A « - - 12 

430 COLOR= 0: PLOT 2,Y: COLOR= 15 

440 FF = 

450 FOR X = 4 TO 32 STEP 2 
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460 

470 

4B0 
490 
500 
510 
520 
530 



540 

550 
560 
570 
580 

590 

0: 

600 
610 
620 

630 
640 

650 



IF FF = THEN XX « PEEK ( - 

16384) 

IF XX > 127 THEN AA = XX: POKE 

- 16368,0: FF - 1 
IF AA = 193 THEN A » . 12 
IF AA = 209 THEN A = - . 12 
PLOT X,Y + 2 * A 
FOR I = 1 TO UU7-: NEXT 
Y - Y + 2 * A 
IFY> = 20 OR Y < 5 THEN COLOR= 
10S FOR I - TO 39= PLOT 1,2 
0: PLOT 1,4: NEXT : COLDR= 15 
: GOTO 300 
COLOR= 0: PLOT X,Y: CÖLOR= 15 



660 
670 
680 



NEXT X 
REM 1. REIHE 

IF Y > 13 OR Y < 11 THEN 590 
Dl » SGN (12 - Y>: GOSUB 1060 

A 

PLOT 32, Y +a:y=y+2*a: cqlor- 
! PLOT 32, Y - A: COLOR* 15: PLOT 33, Y 

REM 2. REIHE 

IF Y < 13 OR Y > IS THEN 630 

Dl = SGN (14 - Y)= BOSUB 1150 

IF Y < 9 OR Y > 11 THEN 650 
Dl » SGN (10 - Y): GOSUB 1240 

COLOR- 0: PLOT 33, y: COLOR« 1 
5: PLOT 34, Y +ASY=Y+2* 
A: COLOR« 0: PLOT 34, Y - A: COLOR<= 
15: PLOT 35, Y 
REM 3. REIHE 

IF Y < 15 OR Y > 17 THEN 690 
Dl - SGN (16 - Y); GOSUB 1330 



690 IF Y < 11 OR Y > 13 THEN 710 

700 Dl - SGN (12 '- Y): GOSUB 1400 



710 
720 
730 



740 
750 

760 

770 

780 

790 

800 

810 
820 



IF Y < 7 OR Y > 9 THEN 730 
Dl ~ SGN (8 - Y>: GOSUB 1470 
COLOR= 0: PLOT 35, Y: COLOR= 1 

5:: PLOT 36, Y +a:y=y+2* 

a: color= 0: plot 36, y - a: cqlor= 

15: PLOT 37, Y 
REM 4- REIHE 

- 17 AND Y < 



IF Y > 

GOSUB 1530 
IF Y > 



«19 THEN 



15 THEN 



13 AND Y < 

GOSUB 1570 
IF Y > - 9 AND Y < 

GOSUB 1610 
IF Y > - 5 AND Y < =7 THEN 

GOSUB 1660 
COLOR=* 0: PLOT 37, y: 



11 THEN 



COLOR« 1 



REM UMGEFALLENE 2AEHLEN 
Ql = Q:Q ■ 
FOR I - 1 TO 10:G - Q + 
= 0) : NEXT I 



(KCl) 



830 P * 0!P « P + Q - Ql 

840 IF SP - 2 AND K2 > THEN HTAB 

F: VTAB 23S P2 = P2 + 2 * P: PRINT 
P2?:K2 - K2 - l: GOTO 890 

850 IF SP = 1 AND Kl > THEN HTAB 

FS VTAB 21 : PI - PI + 2 * P: PRINT 
PI 5: Kl = Kl - l: GOTO 870 

860 IF SP « 1 THEN PI - PI + P: VTAB 
21: HTAB F: PRINT PI? 

B70 IF N « 2 AND Q = 10 AND SP * 

1 THEN PRINT "Ö":K1 - Kl + 1 

880 IF SP - 2 THEN P2 = P2 + P; VTAB 

23: HTAB F: PRINT P2? 
890 IF N « 2 AND Q - 10 AND SP = 

2 THEN PRINT "ö":K2 = K2 + 1 

900 IF N = 1 AND P = 10 AND SP ■ 

1 THEN N ■ 2: PRINT "X":K1 * 
Kl + 2: GOSUB 1810 

910 IF N = 1 AND P = 10 AND SP = 

2 THEN N ■ 2: PRINT "X":K2 - 
K2 + 2: GOSUB 1810 

920 IF N = 2 AND Q - 10 AND SP = 

1 AND V ■ 10 THEN NN ■ 3:K1 - 
1 

930 IF N ■ 2 AND Q - 10 AND SP - 

2 AND V * 10 THEN NN = 3:K2 * 
1 

940 IF IM < NN THEN 200 

950 IF NN = 3 THEN NN * 2 

960 N ■ 

970 IF SP < =2-1 THEN 190 

980 Gl = PI + Gl: 62 = P2 + B2 

990 NEXT V 

1000 GET AA* 

1010 PRINT "TOTAL:": PRINT N*U>J 

" : "5B1: print N*<2);" : ";g 

2 

1015 IF Gl > HI THEN HI - G1SH2 - 
1 

1016 IF G2 > HI THEN HI = G2:H2 - 
1 

1017 IF H2 * 1 THEN H2 ■ 0: GOSUB 
2000 

1020 PRINT "NOCHMAL ?" 

1030 GET AA«; IF AA* = "J" THEN 2 


1040 IF AA* < > "N" THEN 1030 
1050 END 

1060 REM 1. REIHE 1. KEGEL 
1070 IF KCl) =0 THEN RETURN 
1080 K(l) «0 
1090 COLOR^ 0: PLOT 31,12: COLOR= 

1100 D « Dl 

1110 Dl « INT < RND <1> * 20 - 10 

) 
1120 IF D - 1 THEN 1150 
1130 IF D = - 1 THEN 1240 
1140 GOTO 1400 
1150 REM 2. REIHE 2- KEGEL 
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1160 IF K<2) « THEN RETURN 

1170 K<2> = 

1180 COLOR= 0: PLOT 33,14: COLOR= 

15 
1190 D = Dl 
1200 Dl - INT ( RND <1) * 20 - 10 

) 
1210 IF D » 1 THEN 1330 
1220 IFD« - i THEN 1400 
1230 GOTO 1570 
1240 REM 2. REIHE 3. KEGEL 
1250 IF K(3) =0 THEN RETURN 
1260 K(3) - 
1270 COLOR= 0: PLOT 33,10: COLOR= 

15: VTAB 21 S PRINT '*" 
1280 D = Dl 
1290 Dl = INT ( RND (1) * 20 - 10 

) 
1300 IFD= 1 THEN GOTO 1400 
1310 IF D - - 1 THEN GOTO 1470 
1320 GOTO 1610 
1330 REM 3. REIHE 4. KEGEL 
1340 IF K<4> =0 THEN RETURN 
1350 K(4) - 
1360 COLOR« 0: PLOT 35,16: COLOR« 

15: VTAB 21: PRINT "" 
1370 IF Dl « 1 THEN GOTO 1530 
1380 IF Dl = - 1 THEN GOTO 1570 

1390 GOTO 1690 

1400 REM 3 -REIHE 5. KEGEL 

1410 IF K<5> =0 THEN RETURN 

1420 K(5) * 

1430 COLOR= 0: PLOT 35,12: COLOR* 

15: VTAB 21: PRINT ,,H 

1440 IF Dl - 1 THEN GOTO 1570 

1450 IF Dl » - 1 THEN GOTO 1610 

1460 GOTO 1690 

1470 REM 3. REIHE 6. KEGEL 

1480 IF K(6> « THEN RETURN 

1490 K(6) =0 

1500 COLOR« 0: PLOT 35,8: COLOR* 

15: VTAB 21: PRINT *'" 
1510 IF Dl - 1 THEN 1610 
1520 GOTO 1690 
1530 REM 4- REIHE 7- KEGEL 
1540 K(7) =0 
1550 COLOR« 0! PLOT 37,18: COLOR* 

15: VTAB 21: PRINT M " 
1560 GOTO 1690 
1570 REM 5 .REIHE 8. KEGEL 
1580 K<8) «0 
1590 COLOR= 0: PLOT 37,14: COLOR= 

15: VTAB 21: PRINT "» 
1600 GOTO 1690 
1610 REM 6- REIHE 9. KEGEL 
1620 K<9) =0 
1630 COLOR= 0: PLOT 37,10: COLOR= 

15: VTAB 21: PRINT ,,M 
1640 GOTO 1690 
1650 IF N = 1 AND P = 10 AND SP = 



2 THEN N - 2: PRINT S"X":K2 

K2 + 2:H2 - P2 
1660 REM LETZTER KEGEL 
1670 K<10) =0 



1680 

1690 
1700 
1710 



1720 
1725 



1730 



1740 
1750 



1760 
1770 



1780 



COLOR= 0: PLOT 37,6: COLOR= 
15: VTAB 21: PRINT "" 

RETURN 

HOME : VTAB 23: SPEED= 100 

FLASH S PRINT " 
BOWLING ": 

NORMAL : PRINT 

GOSUB 1810 

PRINT : PRINT "«fr************ 

********♦******************" : 

PRINT : PRINT " 
PRODUCED": PRINT : PRINT " 
BY": PRINT : 

PRINT - HANS-PE 

TER": PRINT : PRINT " 

VOGT": PRINT : PRINT 
: PRINT "♦******************* 
#******************♦ " 

PRINT "DIE REGELN:": PRINT : 

PRINT "JEDER SPIELER BEKOMMT 

PRO DURCHGANG": PRINT : PRINT 
"ZUNAECHST 2 KUGELN. IM SESAM 
TEN SIND 10": PRINT. : PRINT " 
DURCHGAENGE ZU SPIELEN.": PRINT 
: PRINT "DER SPIELER, DER AN 
DER REIHE IST, WIRD": PRINT : 

PRINT "DADURCH ANGEZEIGT, DA 
SS SEIN BUCHSTABE": PRINT : PRINT 
"BLINKT" 

PRINT 

PRINT "STEUERUNG DER KUGEL:" 
: PRINT : PRINT " A = KUGEL W 
IRD NACH UNTEN": PRINT » 

ABGELENK 
T": PRINT " Q » KUGEL WIRD NA 
CH OBEN": PRINT : PRINT "JEDE 

ANDERE TASTE = KUGEL ROLLT G 
ER ADE" 

PRINT 

PRINT "WENN DIE KUGEL ROLLT, 

SO KANN MAN SIE": PRINT : PRINT 
»EINEM WEITEREN TASTENDRUCK A 
BLENKEN": PRINT : PRINT : PRINT 
"WERDEN ALLE 10 KEGEL MIT DER 

ERSTEN": PRINT : PRINT "KU6E 
L ABGERAEUMT, SO IST DER NAEC 
HSTE": PRINT : PRINT "SPIELER 

AN DER REIHE. BEI DEN NAECHS 
TEN" 

PRINT : PRINT "BEIDEN KUGELN 

DES VORHERIGEN SPIELERS": PRINT 
: PRINT "WERDEN DIE ABGERAEUM 
TEN KEGEL DOPPELT": PRINT : PRINT 
"GEZAEHLT": PRINT : PRINT "RA 
EUMT DER SPIELER ERST MIT DER 

ZWEITEN": PRINT : PRINT "KU6 
EL ALLE 10 KEGEL AB, SO ZAEHL 
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EN NUR": PRINT : PRINT "DIE B 
EI SEINER NAECH6TEN KUGEL ABB 
P— " 

1790 PRINT S PRINT "RAEUMTEN KEBE 

L DOPPELT. WIRD BEIM 10. "s PRINT 
: PRINT "DURCHGANG MIT DER 2. 

KUGEL ABGERAEUMT,": PRINT : PRINT 
"SO BEKOMMT DER SPIELER NOCH 
EINE KÜBEL." 

1800 SPEED» 160: FOR OP - 1 TO 13 
: PRINT " 

11 * PR I NT " 
NEXT : SPEED= 255: RETURN 

1810 FOR Y - 1 TG 2: POKE 768,2: POKE 
769,241: CALL 770: POKE 768,2 
: POKE 769,231: CALL 770: POKE 
768,2: POKE 769,231: CALL 770 
: POKE 768,2: POKE 769,228: CALL 
770: POKE 768,2: POKE 769,231 
: CALL 770: POKE 768,2: POKE 
769,222: CALL 770: POKE 768,2 
: POKE 769,214: CALL 770 

1820 POKE 768,2: POKE 769,206= CALL 
770: POKE 768,6: POKE 769,192 
: CALL 770: NEXT : RETURN 

1830 FOR Y = 770 TO 807: READ AS: 
POKE Y,AS: NEXT : RETURN 

1840 DATA 172,1,3,174,1,3,169,4,3 
2, 168,252, 173,48, 192,232,208, 
253, 136,208,239,206,0,3,208,2 
31,96,32,32,112,8,24,216,136, 
8,160,160,16,56 

2000 HI* - STR* (HI):LE = LEN (H 
I*) 

2005 GR S COLOR= 15: AB = 37 

2006 VLIN 29,36 AT 3: VLIN 29,36 AT 
7: HLIN 4,6 AT 32: HLIN 10,14 

AT 29: HLIN 10,14 AT 36: VLIN 
30,35 AT 12 

2010 IF LE « 3 THEN L*<1) * LEFT* 
(HI*,i):L*(2) = MID* (HI*, 2, 
1):L*(3) = RIGHT* (HI*,1) 

2020 IF LE - 2 THEN L*(2) * LEFT* 
(HI*,1>:L*(3) - RIGHT* (HI*, 
1) 

2030 IF LE - 1 THEN L*(3) = HI* 

2040 FOR I = 3 TO STEP - 1 

2045 AB = AB - 7 

2050 FOR ZZ = TO 9: ZZ* = STR* 
(ZZ>: IF L*(I) = ZZ* THEN ON 
(ZZ + 1) BOTO 3000,3100,3200, 
3300, 3400, 3500, 3600, 3700, 3800 
,3900 

2060 NEXT ZZ 

2070 NEXT I 

2080 RETURN 

3000 REM 

3010 HLIN AB + 1,AB + 3 AT 29: HLIN 
AB + 1,AB + 3 AT 36: VLIN 30, 
35 AT AB: VLIN 30,35 AT AB + 
4 



3020 NEXT I 

3100 REM 1 

3110 VLIN 29,36 AT AB + 4: PLOT A 
B + 3,29: PLOT AB + 2,30: PLOT 
AB + 1,31: PLOT AB, 32 

3120 NEXT X 

3200 REM 2 

3210 PLOT AB, 30: HLIN AB + 1,AB + 
3 AT 29: VLIN 30,31 AT AB + 4 
: PLOT AB + 3,32: PLOT AB + 2 
,33: PLOT AB + 1,34: PLOT AB, 
35: HLIN AB, AB + 4 AT 36 

3220 NEXT I 

3300 REM 3 

3310 PLOT AB, 30: HLIN AB + 1,AB + 
3 AT 29: VLIN 30,31 AT AB + 4 
: HLIN AB + 2, AB + 3 AT 32: VLIN 
33,35 AT AB + 4: HLIN AB + 1 , 
AB + 3 AT 36: PLOT AB, 35 

3320 NEXT I 

3400 REM 4 

3410 VLIN 29,32 AT AB: HLIN AB + 
1,AB + 4 AT 32: VLIN 33,36 AT 
AB + 2 

3420 NEXT I 

3500 REM 5 

3510 HLIN AB, AB + 4 AT 29: VLIN 3 
0,32 AT AB: HLIN AB + 1,AB + 
3 AT 32: VLIN 33,35 AT AB + 4 
: HLIN AB + 1,AB + 3 AT 36: PLOT 
AB, 35 

3520 NEXT I 

3600 REM 6 

3610 HLIN AB + 1 , AB + 3 AT 29: PLOT 

AB + 4,30: VLIN 30,35 AT AB: HLIN 
AB + 1,AB + 3 AT 36: VLIN 33, 
35 AT AB + 4: HLIN AB + 1,AB + 
3 AT 32 

3620 NEXT I 

3700 REM 7 

3710 HLIN AB, AB + 4 AT 29: VLIN 3 
0,31 AT AB + 4! PLOT AB + 3,3 
2: PLOT AB + 2,33: PLOT AB + 
1,34: VLIN 35,36 AT AB 

3720 NEXT I 

3800 REM 8 

3810 HLIN AB + 1, AB + 3 AT 29: VLIN 
30,31 AT AB: VLIN 30,31 AT AB 
+ 4: HLIN AB + 1,AB + 3 AT 3 
2: VLIN 33,35 AT AB: VLIN 33, 
35 AT AB + 4: HLIN AB + 1,AB + 





3 AT 36 


3820 


NEXT I 


3900 


REM 9 


3910 


HLIN AB 



3920 



1,AB + 3 AT 29: VLIN 
30,31 AT ABS VLIN 30,35 AT AB 

+ 4: HLIN AB + 1,AB + 3 AT 3 
2: HLIN AB + 1,AB + 3 AT 36: PLOT 
AB, 35 

NEXT I 
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Programm für 1 Funktionstasten 



Jeder Apple II-Besitzer wird sich 
schon einmal darüber geärgert ha- 
ben, daß sein Rechner im Gegen- 
satz zu fast allen anderen Rech- 
nern keine Funktionstasten hat 
(von CNTL Y mal abgesehen). 

Aber man kann Abhilfe schaffen. Mit 
diesem Programm lassen sich die Ta- 
sten „0-9" zu Funktionstasten umge- 
stalten. Durch die Eingabe von „ESC", 
gefolgt von „0-9" im Monitor, Apple- 
soft-Basic oder einem Programm, wird 
eine Funktion abgerufen. Die Tasten 
„1-9" sind mit häufig benutzten Basic- 
Befehlen belegt, die Taste kann man 
nach eigenem Wunsch mit einem Text 
belegen. Hierfür ist das „DEF" -Pro- 
gramm zuständig. Die „& "-Funktion 
kann benutzt werden, um dieses Pro- 
gramm auszuschalten, da es gegen 
„RESET" geschützt ist. 



Doch nun zur Beschreibung und Funk- 
tion des Textfiles: Zuerst wird das 
ROM in die Language- Karte dubliziert 
und dort verändert. 
Der Delimiter (der Bindestrich hinter 
Adresse) des Monitors wird zu einem 
Doppelpunkt umdefiniert. Nun kann 
man Zeilen fem Monitor direkt editie- 
ren, ohne den Doppelpunkt mit der 
Hand jedesmal einfügen zu müssen. 
Das Listformat wird auf volle Bild- 
schirmgröße ausgedehnt. Das heißt, 
man kann nun Basic-Zeilen mit 
PRINT-Texten editieren, die über eine 
Zeile hinausgehen, ohne auf den ESC- 
Cursor zurückgreifen zu müssen. 
Die Routine ESCNEW des ROMs wird 
um eine Verzweigung erweitert, so 
daß nun bei Eingaben im Monitor oder 
Basic getestet wird, ob eine der Tasten 
„ESC 1 - ESC 9" oder „ESC 0" ge- 
drückt wurde. Ist dieses der Fall, so 



10 

15 

20 

25 

30 

35 

40 

45 

50 

55 

60 

65 

70 

75 

80 

85 

90 

95 

99 

100 

105 

SIC" 

110 

200 

210 
215 
220 
230 
235 
240 



************************ 

* 

* 

* 

FUNKT I QNST ASTEN 



PROGRAMM FUER 



10 



REM 
REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM INITIALISIERUNG 
HIMEM; 38144; CLEAR 
CALL 1002: DO* = D* + 



— COPYRIGHT BY — 

%. HANS - GEORG & 

&&& WITTKEMPER &&& 

&&& 4358 HALTERN &&& 



& ZUM DACHSBERG 16 & 



verzweigt der Rechner von „GETLN" 
zu „RDCHAR" zu „BSG" zu 
„ESCNEW" zu der Funktionsroutine 
bei 9500. Hier werden nun Zeichen 
aus der ROM-Datei in den Eingabe- 
puffer kopiert, am Bildschirm ausgege- 
ben und getestet, so daß der Text nicht 
über den Puffer hinausgehen kann. 
Die „&" -Funktion wird zum Hin- und 
Herschalten zwischen ROM und Lan- 
guage-Karte definiert, da es mitunter 
beim Listen störend ist, wenn Basic- 
Befehle wahllos getrennt werden. Das 
Programm wird hierbei nicht gelöscht. 
Um dieses zu erreichen, tippt man im 
Monitor das Maschinenprogramm ein 
(HEX-DUMP) und vergleicht es da- 
nach mit dem Assemblerlisting. Even- 
tuelle Fehler müssen vor dem Start 
korrigiert werden, da sich der Rechner 
sonst „aufhängt". Danach muß das Ba- 
sic-Programm eingegeben werden. 
Dieses Programm zerstört sich selber, 
nachdem es ein Textfile namens „FBA- 
SIC" erstellt hat. 

Um die Funktionstasten immer zur 
Verfügung zu haben, empfiehlt es sich, 
im „HELLO" -Programm ein „EXEC 
FBASIC" einzufügen. 

Achtung: 

Dieses Programm funktioniert nur bei 
Maxfiles 3 (Normalfall). Falls man 
aber Maxfiles erhöht, zerstört der 
DOS-Filepuffer das Maschinenpro- 
gramm und man landet bei Betätigung 
einer der Funktionstasten im Monitor. 



************************ 



SPEED= 255; D* = 
"OPEN H :DC* - d* + 



CHR* (4) : HOME 
"CLOSE":DW* = D* 



+ "WHITE" :N* = "FBA 



260 



VT AB 5: HTAB 5: PRINT "NUN WIRD DAS TEXTFILE ERSTELLT 

PRINT ; PRINT DO*5N* 

PRINT DW$»N$ 

REM BILDSCHIRM AUSSCHALTEN 

PRINT "POKE-37,27" 

PRINT H NOMONC,I,0 N 

REM LANGUAGE-CARD LADEN 

PRINT "CALL- 151" 

PRINT "C081 C081" 

PRINT "D000<D000.FFFFM" 
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270 PRINT "C083 C083" 

275 REM MONITOR '-' ZU * : ' 

280 PRINT **FD9FsBA" 

285 REM '&' ZUM UMSCHALTEN 

290 PRINT "3F5;4C SB 95" 

295 REM NEUES LIST FORMAT 

300 PRINT "D705:4C 12 D7" 

305 REM 10 FUNKTIONEN INS ROM 

310 PRINT "FBA5SC9 BA B0 07 C9 B0 90 3 4C 95" 

320 PRINT "FBB0SC9 CE B0 E3 C9 C9 90 DF" 

330 PRINT *'FBB8:C9 CC F0 DB D0 DB EA EA" 

335 REM START F BAS IC 

340 PRINT "E003S" 

345 REM LADE DIE FUNKTIONEN 

350 PRINT "BLOADESC1 " 

355 PRINT " HI MEMS 38144" 

360 PRINT "HOME" 

370 PRINT "?"; CHR* C 34) 5 "ES STEHEN NUN 10 FUNKTIONSTASTEN BEREIT' 

380 PRINT DC*?N$ 

390 PRINT D*;"EXEC";N$ 

400 PRINT •D*;"FP" 

410 END 



CHR* (34) 



Teil 2 



FUER TASTE 'ESC 0' 



10 HOME ; PRINT CHR* (12) 
15 INPUT " DEFINITION 

==> "5A* 
20 FOR I = 1 TO LEN (A*> : POKE 38308 
30 IF I < > LEN <A*> THEN NEXT 
40 POKE 38308 + I, ASC < MID* (A*,I)> + 128 

50 HOME : PRINT "DIE NEU TASTEN DEFINITION FUER ESC 0": PRINT 
NUN ";a$: END 



I, ASC < MID* (A*, I)> 



PRINT "--> IST 



Teil 3 



*95O0 


.95A3 














9500 : 


48 


A9 


DO 


BD 


56 


95 


A9 


DO 


950Bs 


BD 


57 


95 


68 


C9 


BO 


DO 


OF 


9510: 


A9 


A5 


BD 


56 


95 


A9 


95 


8D 


9518; 


57 


95 


AO 


00 


4C 


55 


95 


AO 


9520 : 


C3 


C9 


Bl 


FO 


30 


AO 


D4 


C9 


952(3: 


B2 


FO 


2A 


AO 


D9 


C9 


B3 


FO 


9530: 


24 


AO 


03 


C9 


B4 


FO 


IE 


AO 


9538; 


06 


C9 


BS 


FO 


18 


AO 


OE 


C9 


9540 s 


B6 


FO 


12 


AO 


55 


Ü9 


B7 


FO 


9548s 


OC 


AO 


94 


C9 


B8 


FO 


06 


AO 


9550 : 


29 


EA 


EA 


EA 


EA 


B9 


DO 


DO 


9558: 


C9 


80 


BO 


OD 


9D 


00 


02 


E8 


9560 s 


ce 


20 


75 


95 


4C 


55 


95 


EA 


9568s 


EA 


38 


E9 


80 


9D 


00 


02 


E8 


9570 s 


20 


75 


95 


60 


00 


48 


A9 


FF 


9578: 


85 


32 


68 


18 


69 


60 


20 


ED 


9580: 


FD 


EO 


FE 


90 


05 


68 


68 


4C 


9588 : 


62 


FD 


60 


AD 


74 


95 


C9 


80 


9590: 


FO 


09 


A9 


80 


BD 


74 


95 


BD 


9598: 


81 


CO 


60 


A9 


00 


BD 


74 


95 


95A0: 


SD 


83 


CO 


60 










BSAVE ESC 1, 


A 38144, L 181 








coM»£K' 



*üctt** 






oM 



80 






74 



Computronic 




Fred arbeitet mit seinen Kollegen auf 
einer Großbaustelle. Bei der Fertig- 
stellung eines neuen Hochhauses wer- 
den Gerüste angebracht und Leitern 
aufgestellt. 

Fred hat die Aufgabe, die obere Fassa- 
de des Hauses fertigzustellen. Auf sei- 
nem Weg nach oben, über Leitern und 
Gerüste, gibt es Schwierigkeiten. Bau- 
schutt, Fässer und Arbeitsmaterial, al- 
les, was seine Kollegen für die Arbeit 
brauchen, kann für Fred gefährlich 
werden, wenn es herunterfällt. Um 
diesen Gefahren rechtzeitig auszuwei- 
chen, muß Fred immer häufiger Pau- 
sen einlegen und seine mitgebrachten 
Hamburger essen, um bei Kräften zu 
bleiben. 

Das Spiel enthält neun Bilder. Um ins 
nächste Bild zu kommen, muß ge- 
schickt vorgegangen werden. Mit den 
Bildern verändern sich auch die 
Schwierigkeiten, mit denen Fred zu 
kämpfen hat. Zusätzlich . muß darauf 
geachtet werden, das nicht zuviel Zeit 
für ein Bild benötigt wird. Denn die 
Uhr, zu sehen in den letzten beiden 
Bildschirmzeilen, ist unbestechlich. 
Auch darf Fred, um das Spiel nicht 
vorzeitig zu beenden, nicht noch vom 
Gerüst fallen. Wenn Sie es geschafft 
haben, alle neun Bilder zu bewältigen, 
beginnt das Spiel von vorn. Allerdings 
- ein wenig schneller. 
Steuerung: 

Q bis T: Springen / Leiter hoch 
Caps Shift bis V: Leiter runter 
O: links 
P: rechts 

Sie können das Spiel auch nach Ihren 
Wünschen gestalten, dazu bestehen 
folgende Möglichkeiten: mit >S< läßt 






sich der Schwierigkeitsgrad einstel- 
len; mit >A< läßt sich die Spielseite 
einstellen, an der das Spiel beginnen 
soll; mit >L< läßt sich die Anzahl der 
Spielfiguren im Bereich von 1 bis 5 
wählen. 

Zum Laden: geben Sie zuerst das Li- 
sting Teil 1 ein und speichern Sie es 
auf Kassette. Danach geben Sie den 
Maschinencode nach Listing Teil 3 
ein. Hierfür sollten Sie entweder den 
bevorzugten Hex-Monitor laden oder 
das Programm nach Listing 4 verwen- 
den. 

Die Version des HEX-LOADERS be- 
inhaltet ebenfalls eine Routine zur 
Prüf summen- Bildung, wie sie in Li- 
sting 3 verwendet wird. Nachdem Sie 
den Maschinensprache -Teil noch ein- 
mal überprüft haben, können Sie auch 
diesen Teil auf Kassette speichern. Bei 
Verwendung des HEX-LOADERS 
geht das ganz einfach durch GOTO 
1000. 



Jetzt geben Sie einfach NEW und das 
Programm nach Listing 2 ein, welches 
Sie anschließend mit GOTO 5000 auf 
Kassette speichern. 
Jetzt nehmen Sie eine andere Kassette 
und speichern darauf das Programm 
aus Listing 2 mit GOTO 5000 ab. 
Dann laden Sie das Programm aus Li- 
sting 1. Das Programm wird sofort zur 
Ausführung gelangen, und nun legen 
Sie die Kassette ein, auf der nur das 
Programm nach Listing 2 enthalten ist. 
Schalten Sie den Rekorder auf Auf- 
nahme, und das Programm aus Listing 
1 wird nun die Titelgrafik auf die Kas- 
sette speichern. ..Zum Schluß laden Sie 
den Maschinencode Teil mit LOAD 
""CODE 29260 und speichern ihn hin- 
ter die Titelgrafik mit SA VE „JUMP- 
Code" CODE 29260,2900. 
Nun haben Sie eine vollständige Kas- 
sette mit dem Programm JUMP. Spu- 
len Sie zurück und laden Sie das Pro- 
gramm mit LOAD"". 



Computronic 



75 



rc^M 



tx^m 



Listing 1 s Titelgrafik 















EINT T'RB 


3; ÜHR» 159 


SZ= T f"*.*'^ ^~ ^ ^- ; 


13 ; CHRS 1S2 


S "¥* f'.i~P * ' " ■ 


n™^ ^ , 


GR i =1 TC 


jjjj ; PRIfvJT 


^ä5 i : NtX I 


i : PRZNT I 


9 ; INK 3 ; 


• • r^?< s II w i - * 


RINT TfiB 


23 ; CHRä 153 


C" : $-.1 [ i i_i t— : 


2 9 i CHRS 159 


il> "S'r.-i'T" TGR 


=; ■ rHDt iRO' 
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computromcBestellkarte-Software-Service 



Alle im Heft abgedruckten Programme können als zusätzlicher Service über den Verlag bezogen werden. 
(Ausland nur gegen Vorkasse) 



Die Zustellung erfolgt: gegen Vorkasse ü 
innerhalb von 1 Woche 



oder Inland per Nachnahme D 
+ Versandkosten 



Entnehmen Sie bitte aus unseren Preislisten die notwendigen Angaben für Ihre Bestellung: 
Bitte liefern Sie mir: 



D Cassette für 
D Diskette für 

zum Preis von gesamt 



Bestell-Nr. 



Bestell-Nr. 



D Anzahl 
D Anzahl 

DM 



Name/Vorname: 



Straße, Nr.: 



PLZ/Ort: 



Datum, Unterschrift 
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Atari 

Software-Service 







Programm 


Preis/ Kassette 


Preis /Diskette 


Bestell-Nr. 


Mastermind 
Schlangenkrieg 


10,50 


19,50 


I 41 


Tank-Battle 
Oil Panic 


12,50 


19,50 


I 51 


Startup 

Zeilen-Split 

Tomstone-City 


12,50 


19,50 


I 71 


Painter 
Hardcopy 


14, — 


19,50 


I 81 


The Big Quest 
Fünf gewinnt 


14, — 


19,50 


I 91 


Splitt 


11, — 


17,50 


1101 


Ski 
Mutation 


14,50 


19,50 


I 121 


Super Miner 
Diamonds 


14,50 


19,50 


I 22 



fl-99 

Software-Service 




Programm 


Preis /Kassette 


Preis /Diskette 


Bestell-Nr. 


Drei Kronen-Spiel 
Zahlenputzen 


8,50 


- 


T 41 


Karl der Käfer 
Alien-Landing 


14,50 


_ 


T 51 


Jack the Digger 
Noah 2099 


14,50 


- 


T 61 


Lift Bär 

ASC II DEF Teil 1 


14 — 


- 


T 71 


Maya 

ASC II DEF Teil 2 


14,50 


- 


T 81 


ASC II DEF Teil 1+2 


- 


19.50- 


T881 


Transfer 
Silverspar 


14,50 


19,50 


,T 91 


Cave Man 
Alkoholverbot 


14,50 


19,50 


T101 



Moon Race 

Frogger 

Slicks 



19,50 



25,50 



T 22 



Computronic 



Commodore 64 

Software-Service 





"ja- tr" * * i* a }> 



*>/*ngt 



SZ2/J' 



Programm 


Preis /Kassette 


Preis /Diskette 


Bestell-Nr. 


Mauern 
Widerstand 


8 — 


15 — 


C 41 


Space-Comets 

Erdspalte 

Sprite-Data 


15 — 


23,50 


C 51 


Autostart 

Bestellschein 

Roadpainter 


16,50 


23,50 


C 61 


Hardcopy 

Space-Fighter 

Data-Generator 


15,50 


19,50 


C 71 


Monster- Attack 

Block-Painter 

Epson-Drucker 


16,50 


23,50 


C 81 


Projekt 
Datenbank 


16,— 


23,50 


C 91 


Spiders 
The Basic 


16,50 


23,50 


C101 


High Noon 

Skeet 

Grafik-Designer 


17,50 


23,50 


C121 


Painter 

Star-Baddle 

Editor 


17,50 


23,50 


C 22 



VC-20 

Software-Service 




■ä*/» *» ^ * m » » / J. 



Programm 


Preis /Kassette 


Preis /Diskette 


Bestell-Nr. 


Bestellschein 
Glücky 


8,50 


15 — 


V 61 


Multigraph 
All Rammer 


11 — 


15,50 


V 71 


Zyklo 
Meteorit 


11 — 


19,50 


V 81 


Garten 

Schloß Gruselstein 


14 — 


19,50 


V 91 


Fressman 
Outlaw 


14 — 


19,50 


V101 


Prost 
Buffalo Bill 


14 — 


19,50 


V 121 



Joy Man 
Powerpack 



14 — 



19,50 



V 22 
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Apple II 

Software-Servic« 



Programm 



Wilder Westen 

Karambolage 

Maskengenerator 



Music-Maker 
Mission: Adler 
Disk-Katalog 



Snake 
Super Datei 
Shape-tables 



Library 
Fight 



Reversal 
Disk-Menue-Generator 



Diamonds 
Hilfsprogramm 



Tic-Tac-Toe 
Jumper 



Donovan 
Basic-Konverter 



Funktionstasten 

Painter 

Bowling 



Preis/ Kassette 



14.50 



9,50 



12,50 



12,50 



14 — 



14,50 



14,50 






\ 



SR.. 




■*r\ » ,.;:-„i' /■>■ &gr *t m- 



Preis /Diskette 



19,50 



19,50 



19,50 



19,50 



19,50 



19,50 



19,50 



19,50 



19,50 



Bestell-Nr. 



A 41 



A 51 



A 61 



A 71 



A 81 



A 91 



\A101 



A121 



A 22 



Dragon 1 1 

Software-Service 




Programm 


Preis /Kassette 


Bestell-Nr. 


Blizzard 


8 — 


D 41 


Space-Flight 
Geosoft 


10 — 


D 51 



Waregames 



Laser-Attack 



Hardcopy 



Anwenderprogramm 



Dragon Paint 



8,50 



8,50 



13, 



10.— 



14,- 



D 61 



D 71 



D 81 



D 91 
D 101 
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ZX-Spectrum 

Software-Service 







Programm 


Preis /Kassette 


Bestell-Nr. 


Inventur 


12 — 


S 


41 


Missile-Comment 


8,50 


S 


51 


Defender 
Lui der Wurm 
Alternativer Zeichensatz 


13,50 


s 


61 


Matheprogramm 
Bongo-Beecatcher 


12,50 


s 


71 


Solitaire 

Supers tat 

Kleinstes gem. Vielfache 


14,50 


s 


81 


Jump about 


14,50 


s 


91 


Pac-Man 
Oil Panic 


14,50 


S 101 


Frogger 


16 — 


S121 


Jump 


14,50 


s 


22 



ZX-81 

Software-Service 








Programm 


Preis /Kassette 


Bestell-Nr. 


Go-Ball 
Grand-Prix 


10 — 


Z 


51 


Moon-Crash 
ZX-Draw 


10 — 


Z 


61 


Tonprogramm 
Aldebaran 


10 — 


Z 


71 


Irrgarten 3D 


10,— 


■ z 


81 


Reversi 


10- 


• 

z 


91 


Panik Labyrinth 


10 — 


Z 101 


Expedition 


10 — 


Z 121 


Spinnen 


14,50 


Z 


22 




mputrnnir. 




Jedes Programm in Computronic wird einer Endkontrolle in unserem Hause unterzogen und genaue- 
stens geprüft. Alle im Heft abgedruckten Programme sind nach der richtigen Eingabe der Listings auch 
funktionsfähig. Viele Leser verlieren jedoch schnell die Geduld am Programmieren, sollte die Eingabe 
einmal nicht klappen. Die häufigste Ursache von Störungen im Programm sind unterlaufene Fehler bei 
der Eingabe. 






UsünS 












S lehrhaftes ^ghsteB 



tt*KS 






Te , 
Lebt) 



eriolgM 









5 x 100,- DM zahlen wir Ihnen für den 
Nachweis eines fehlerhaften Listings 
in dieser Ausgabe! 

Voraussetzung: 

- Sie müssen unter den ersten fünf eingegangenen Hinweisen sein, 

- der Nachweis des fehlerhaften Listings ist auf dem abgedruckten Nachweis- 
Coupon zu erbringen, 

- es können nur die ausgefüllten Nachweisscheine berücksichtigt werden! 

Coupon ausfüllen und einsenden an: Tronic- Verlag, Postfach, Kennwort: 
Listing, 3444 Wehretal 1. 






Nachweis-Coupon 



Kennwort-Listing 



Name/Vorname : 



Straße, Nr.; 



PLZ/Ort: 



Datum. Unterschrift 



Ich habe folgenden Fehler in einem Listing entdeckt: 



Programmname 



Seite 



Listing-Zeile 



richtig isl: 
























Computronic 



Für unsere Leser, die Überraschungen 
lieben, hat sich unsere Redaktion etwas 
einfallen lassen. Überzeugen Sie sich selbst. 
Wir haben Ihnen einige S u p e r-Angebote 
zusammengestellt: 




^V"*** 



[ **n, 



e *> 



^«, 



9/<i 



*c e 



**b 



e*» 



Spitzen-Programme zum Spitzen- 



Besteii-Nr. ioo kleines Programm-Paket 

Be S teii-Nr. uo großes Programm- Paket 

Besten-Nr. 200 exklusive Disketten-Box 

Besten-Nr. 210 exklusive Disketten-Box 



3 bespielte Kassetten DM 27,50 
3 bespielte Disketten DM 48,- 
8 bespielte Kassetten DM 64,50 
8 bespielte Disketten DM 99- 
inkl. 8 bespielte Disketten 
zum Preis von DM 148,- 
inkl. 10 Leerdisketten 
zum Preis von DM 99,- 



Alle bespielten Kassetten und Disketten wurden unserem Kassettenservice Seite 84 und 85 entnommen. Angebot gilt 
nur für Commodore 64, Atari, TI-99 und Apple! 



Bestell-Nr. 300 



^ * .ai- unsere Ausgaben Heft 4-10 

Computroni c -Angebot zum Sparpreis von DM 26 _j 




Aus unserem 
Angebot: 




T1 .99jB^° d ^ 
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o£tware-Service 



aus unserem Angebot 



Spiders: 

Ziel des Spieles ist 
es, zwei' Spinnen, 
die auf ihren Net- 
zen herumkrab- 
beln, zu beseitigen. 
Vernichten kann 
man die Tierchen 
allerdings nur mit 
Insektengift. Davon 
liegt noch genug im 
Keller, aber wo ist 
der Schlüssel? - Unser Topprogramm aus der Aus- 
gabe Oktober. Spiders gefällt durch eine gute Gra- 
fik und guten Sound. Gespielt wird mit Joystick an. 
Port 2. Für Commodore 64. 




Frogger: 

Ein Spiel für den 
ZX-Spectrum 48K. 

Die beliebte Spiel- 
version jetzt auch 
für den ZX-Spec- 
trum. Ein Frosch 
hockt am Straßen- 
rand einer viel be- 
fahrenen Straße 
und versucht ver- 
zweifelt, sie zu 

überqueren. Ist ihm das gelungen, wartet eine zwei- 
te schwere Aufgabe auf ihn. Em Fluß, verseucht mit 
Krokodilen, muß überquert werden. Das Spiel ver- 
fügt über einen guten Sound. 




Fressmann: 



M other Duck: 

Ähnlich der Spielversion 
„Frogger". Eine Entenmutter 
muß einen Fluß überqueren, 
um Futter für ihre Jungen zu 
bekommen. Allerlei Untier 
hält sich 
jedoch 
im Was- 
auf 





ser 



und macht jede Flußüberquerung zu ei- 
ner gefahrvollen Angelegenheit. Für TI 
99. Benötigt werden Joystick und das 
TI.-Ext.-Basic-ModuI. 



Oil-Panic: 




Skeet: (Tontaubenschießen) 



Fressmann ist eine Pacman- Version. 
Das Programm, welches ohne Erweite- 
rung lauf fähig ist, steht der Original Ver- 
sion in nichts nach. Fressmann läuft auf 
dem VC 20 und wird mit Joystick ge- 
spielt. 

Projekt: 

Als Top- *- 

Programm j^ 2 *" * k<« *•* 

auserwählt I 

von der r 

Redaktion. »:• 

Sie sollen r • 

eine ge- i 

fährliche 

Mission * 

ausführen. 
Um für die 

nächste Zeit genügend Uran zur Verfü- 
gung zu haben, sollen Sie eine Reise 
zum Mond unternehmen und nach dem 
edlen Metall suchen. Ihre Reise ist in 
fünf Phasen aufgegliedert, die nachein- 
ander bewältigt werden müssen. Ein 
schönes Spiel für den Commodore 64. 





Für Commo- 
dore 64. Dem 

realistischen 
Tontauben- 
schießen 
nachempfun- 
den. Von ei- 
nem Katapult 
geschleuderte 
Tontauben 
müssen reaktionsschnell getroffen werden. 
In diesem Spiel kann jeder seine eigene 
Meisterschaft austragen. Eine Supergrafik 
zeichnet besonders aus. 



Sie müssen versuchen, mög- 
lichst viele Tropfen aufzu- 
fangen, die aus 
einer defekten 
Ölleitung her- 
austreten. Aber 
aufgepaßt, denn 
der Eimer, der 
zum Auffangen 
da ist, ist mit nur 
vier Tropfen ge- 
füllt. Für ZX- 
Spectrum 48K. 



High Noon: 



Ein tolles Spiel für den Commodore 

64. High Noon besitzt eine schöne 
Grafik und eine hohe Spielgeschwin- 
digkeit. Gewählt werden kann zwi- 
schen 255!! verschiedenen Spielstu- 
fen. - Auf einer vielbefahrenen Post- 
kutschenstraße stehen sich zwei 
Cowboys gegenüber und duellieren 
sich. Ein Spiel für alle Western- 
Freunde. 




Computronic erscheint jetzt alle 2 Monate im Tronic-Verlag. Der Bezugspreis beträgt im Inland DM 6,50. 
Im Preis ist die gesetzliche Mehrwertsteuer enthalten. 

Tronic-Verlag GmbH • Postfach 41 ■ 3444 Wehretal 1 - Telefon 56 51 - 4 06 43 / 4 06 93 



